home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 December / december_2000.iso / Intercd / root / Multimedia / audio / ^NoiseTracker / NtkSourceCode / CSynth_gui_pro.cpp < prev    next >
Encoding:
Text File  |  2000-03-09  |  65.3 KB  |  2,338 lines
  1. /* The Original && Best, NoiseTrekker Main Source Code [Part 2]*/
  2.  
  3. //
  4. // CSynth-Noisetrekker GUI functions prototypes 
  5. //
  6.  
  7. void Actualize_SynthParSlider(void)
  8. {
  9. switch(ped_synthpar)
  10. {
  11. case 1: /* Osc1_PW */
  12.     Realslider(406,388,PARASynth[ped_patsam].osc1_pw/4);
  13.     outlong(572,388,PARASynth[ped_patsam].osc1_pw,0);
  14. break;
  15.  
  16. case 2: /* Osc2_PW */
  17.     Realslider(406,388,PARASynth[ped_patsam].osc2_pw/4);
  18.     outlong(572,388,PARASynth[ped_patsam].osc2_pw,0);
  19. break;
  20.  
  21. case 3: /* Osc1_Detune */
  22.     Realslider(406,388,PARASynth[ped_patsam].osc2_detune);
  23.     outlong(572,388,PARASynth[ped_patsam].osc2_detune-64,0);
  24. break;
  25.  
  26. case 4: /* Osc2_Finetune */
  27.     Realslider(406,388,PARASynth[ped_patsam].osc2_finetune);
  28.     outlong(572,388,(PARASynth[ped_patsam].osc2_finetune*100)/128,1);
  29. break;
  30.  
  31. case 5: /* VCF Cutoff */
  32.     Realslider(406,388,PARASynth[ped_patsam].vcf_cutoff);
  33.     outlong(572,388,PARASynth[ped_patsam].vcf_cutoff*172,3);
  34. break;
  35.  
  36. case 6: /* VCF_Resonance */
  37.     Realslider(406,388,PARASynth[ped_patsam].vcf_resonance);
  38.     outlong(572,388,(PARASynth[ped_patsam].vcf_resonance*100)/128,1);
  39. break;
  40.  
  41. case 7: /* ENV1_Attack */
  42.     Realslider(406,388,PARASynth[ped_patsam].env1_attack/512);
  43.     outlong(572,388,PARASynth[ped_patsam].env1_attack/44,2);
  44. break;
  45.  
  46. case 8: /* ENV1_Decay */
  47.     Realslider(406,388,PARASynth[ped_patsam].env1_decay/512);
  48.     outlong(572,388,PARASynth[ped_patsam].env1_decay/44,2);
  49. break;
  50.  
  51. case 9: /* ENV1_Sustain */
  52.     Realslider(406,388,PARASynth[ped_patsam].env1_sustain);
  53.     outlong(572,388,(PARASynth[ped_patsam].env1_sustain*100)/128,1);
  54. break;
  55.  
  56. case 10: /* ENV1_Release */
  57.     Realslider(406,388,PARASynth[ped_patsam].env1_release/512);
  58.     outlong(572,388,PARASynth[ped_patsam].env1_release/44,2);
  59. break;
  60.  
  61. case 11: /* ENV2_Attack */
  62.     Realslider(406,388,PARASynth[ped_patsam].env2_attack/512);
  63.     outlong(572,388,PARASynth[ped_patsam].env2_attack/44,2);
  64. break;
  65.  
  66. case 12: /* ENV2_Decay */
  67.     Realslider(406,388,PARASynth[ped_patsam].env2_decay/512);
  68.     outlong(572,388,PARASynth[ped_patsam].env2_decay/44,2);
  69. break;
  70.  
  71. case 13: /* ENV2_Sustain */
  72.     Realslider(406,388,PARASynth[ped_patsam].env2_sustain);
  73.     outlong(572,388,(PARASynth[ped_patsam].env2_sustain*100)/128,1);
  74. break;
  75.  
  76. case 14: /* ENV2_Release */
  77.     Realslider(406,388,PARASynth[ped_patsam].env2_release/512);
  78.     outlong(572,388,PARASynth[ped_patsam].env2_release/44,2);
  79. break;
  80.  
  81. case 15: /* LFO1_Period */
  82.     Realslider(406,388,PARASynth[ped_patsam].lfo1_period/20);
  83.     outfloat(572,388,(float)PARASynth[ped_patsam].lfo1_period/10,8);
  84. break;
  85.  
  86. case 16: /* LFO2_Period */
  87.     Realslider(406,388,PARASynth[ped_patsam].lfo2_period/20);
  88.     outfloat(572,388,(float)PARASynth[ped_patsam].lfo2_period/10,8);
  89. break;
  90.  
  91. case 17:
  92.     Realslider(406,388,PARASynth[ped_patsam].lfo1_osc1_pw);
  93.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo1_osc1_pw-64.0f)*1.5625f,1);
  94. break;
  95.  
  96. case 18:
  97.     Realslider(406,388,PARASynth[ped_patsam].lfo1_osc2_pw);
  98.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo1_osc2_pw-64.0f)*1.5625f,1);
  99. break;
  100.  
  101. case 19:
  102.     Realslider(406,388,PARASynth[ped_patsam].lfo1_osc1_pitch);
  103.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo1_osc1_pitch-64.0f)*1.5625f,1);
  104. break;
  105.  
  106. case 20:
  107.     Realslider(406,388,PARASynth[ped_patsam].lfo1_osc2_pitch);
  108.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo1_osc2_pitch-64.0f)*1.5625f,1);
  109. break;
  110.  
  111. case 21:
  112.     Realslider(406,388,PARASynth[ped_patsam].lfo1_osc1_volume);
  113.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo1_osc1_volume-64.0f)*1.5625f,1);
  114. break;
  115.  
  116. case 22:
  117.     Realslider(406,388,PARASynth[ped_patsam].lfo1_osc2_volume);
  118.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo1_osc2_volume-64.0f)*1.5625f,1);
  119. break;
  120.  
  121. case 23:
  122.     Realslider(406,388,PARASynth[ped_patsam].lfo1_vcf_cutoff);
  123.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo1_vcf_cutoff-64.0f)*1.5625f,1);
  124. break;
  125.  
  126. case 24:
  127.     Realslider(406,388,PARASynth[ped_patsam].lfo1_vcf_resonance);
  128.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo1_vcf_resonance-64.0f)*1.5625f,1);
  129. break;
  130.  
  131. case 25:
  132.     Realslider(406,388,PARASynth[ped_patsam].lfo2_osc1_pw);
  133.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo2_osc1_pw-64.0f)*1.5625f,1);
  134. break;
  135.  
  136. case 26:
  137.     Realslider(406,388,PARASynth[ped_patsam].lfo2_osc2_pw);
  138.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo2_osc2_pw-64.0f)*1.5625f,1);
  139. break;
  140.  
  141. case 27:
  142.     Realslider(406,388,PARASynth[ped_patsam].lfo2_osc1_pitch);
  143.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo2_osc1_pitch-64.0f)*1.5625f,1);
  144. break;
  145.  
  146. case 28:
  147.     Realslider(406,388,PARASynth[ped_patsam].lfo2_osc2_pitch);
  148.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo2_osc2_pitch-64.0f)*1.5625f,1);
  149. break;
  150.  
  151. case 29:
  152.     Realslider(406,388,PARASynth[ped_patsam].lfo2_osc1_volume);
  153.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo2_osc1_volume-64.0f)*1.5625f,1);
  154. break;
  155.  
  156. case 30:
  157.     Realslider(406,388,PARASynth[ped_patsam].lfo2_osc2_volume);
  158.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo2_osc2_volume-64.0f)*1.5625f,1);
  159. break;
  160.  
  161. case 31:
  162.     Realslider(406,388,PARASynth[ped_patsam].lfo2_vcf_cutoff);
  163.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo2_vcf_cutoff-64.0f)*1.5625f,1);
  164. break;
  165.  
  166. case 32:
  167.     Realslider(406,388,PARASynth[ped_patsam].lfo2_vcf_resonance);
  168.     outfloat(572,388,((float)PARASynth[ped_patsam].lfo2_vcf_resonance-64.0f)*1.5625f,1);
  169. break;
  170.  
  171. case 33:
  172.     Realslider(406,388,PARASynth[ped_patsam].env1_osc1_pw);
  173.     outfloat(572,388,((float)PARASynth[ped_patsam].env1_osc1_pw-64.0f)*1.5625f,1);
  174. break;
  175.  
  176. case 34:
  177.     Realslider(406,388,PARASynth[ped_patsam].env1_osc2_pw);
  178.     outfloat(572,388,((float)PARASynth[ped_patsam].env1_osc2_pw-64.0f)*1.5625f,1);
  179. break;
  180.  
  181. case 35:
  182.     Realslider(406,388,PARASynth[ped_patsam].env1_osc1_pitch);
  183.     outfloat(572,388,((float)PARASynth[ped_patsam].env1_osc1_pitch-64.0f)*1.5625f,1);
  184. break;
  185.  
  186. case 36:
  187.     Realslider(406,388,PARASynth[ped_patsam].env1_osc2_pitch);
  188.     outfloat(572,388,((float)PARASynth[ped_patsam].env1_osc2_pitch-64.0f)*1.5625f,1);
  189. break;
  190.  
  191. case 37:
  192.     Realslider(406,388,PARASynth[ped_patsam].env1_osc1_volume);
  193.     outfloat(572,388,((float)PARASynth[ped_patsam].env1_osc1_volume-64.0f)*1.5625f,1);
  194. break;
  195.  
  196. case 38:
  197.     Realslider(406,388,PARASynth[ped_patsam].env1_osc2_volume);
  198.     outfloat(572,388,((float)PARASynth[ped_patsam].env1_osc2_volume-64.0f)*1.5625f,1);
  199. break;
  200.  
  201. case 39:
  202.     Realslider(406,388,PARASynth[ped_patsam].env1_vcf_cutoff);
  203.     outfloat(572,388,((float)PARASynth[ped_patsam].env1_vcf_cutoff-64.0f)*1.5625f,1);
  204. break;
  205.  
  206. case 40:
  207.     Realslider(406,388,PARASynth[ped_patsam].env1_vcf_resonance);
  208.     outfloat(572,388,((float)PARASynth[ped_patsam].env1_vcf_resonance-64.0f)*1.5625f,1);
  209. break;
  210.  
  211. case 41:
  212.     Realslider(406,388,PARASynth[ped_patsam].env2_osc1_pw);
  213.     outfloat(572,388,((float)PARASynth[ped_patsam].env2_osc1_pw-64.0f)*1.5625f,1);
  214. break;
  215.  
  216. case 42:
  217.     Realslider(406,388,PARASynth[ped_patsam].env2_osc2_pw);
  218.     outfloat(572,388,((float)PARASynth[ped_patsam].env2_osc2_pw-64.0f)*1.5625f,1);
  219. break;
  220.  
  221. case 43:
  222.     Realslider(406,388,PARASynth[ped_patsam].env2_osc1_pitch);
  223.     outfloat(572,388,((float)PARASynth[ped_patsam].env2_osc1_pitch-64.0f)*1.5625f,1);
  224. break;
  225.  
  226. case 44:
  227.     Realslider(406,388,PARASynth[ped_patsam].env2_osc2_pitch);
  228.     outfloat(572,388,((float)PARASynth[ped_patsam].env2_osc2_pitch-64.0f)*1.5625f,1);
  229. break;
  230.  
  231. case 45:
  232.     Realslider(406,388,PARASynth[ped_patsam].env2_osc1_volume);
  233.     outfloat(572,388,((float)PARASynth[ped_patsam].env2_osc1_volume-64.0f)*1.5625f,1);
  234. break;
  235.  
  236. case 46:
  237.     Realslider(406,388,PARASynth[ped_patsam].env2_osc2_volume);
  238.     outfloat(572,388,((float)PARASynth[ped_patsam].env2_osc2_volume-64.0f)*1.5625f,1);
  239. break;
  240.  
  241. case 47:
  242.     Realslider(406,388,PARASynth[ped_patsam].env2_vcf_cutoff);
  243.     outfloat(572,388,((float)PARASynth[ped_patsam].env2_vcf_cutoff-64.0f)*1.5625f,1);
  244. break;
  245.  
  246. case 48:
  247.     Realslider(406,388,PARASynth[ped_patsam].env2_vcf_resonance);
  248.     outfloat(572,388,((float)PARASynth[ped_patsam].env2_vcf_resonance-64.0f)*1.5625f,1);
  249. break;
  250.  
  251. case 49:
  252.     Realslider(406,388,PARASynth[ped_patsam].osc3_volume);
  253.     outfloat(572,388,((float)PARASynth[ped_patsam].osc3_volume-64.0f)*1.5625f,1);
  254. break;
  255.  
  256. case 50:
  257.     Realslider(406,388,PARASynth[ped_patsam].ptc_glide);
  258.     outfloat(572,388,((float)PARASynth[ped_patsam].ptc_glide)*0.78125f,1);
  259. break;
  260.  
  261. case 51:
  262.     Realslider(406,388,PARASynth[ped_patsam].glb_volume);
  263.     outfloat(572,388,((float)PARASynth[ped_patsam].glb_volume)*0.78125f,1);
  264. break;
  265.  
  266. }
  267. }
  268.  
  269. void IniCsParNames(void)
  270. {
  271. sprintf(CS_PAR_NAME[1],"Osc1 Phase Distortion");
  272. sprintf(CS_PAR_NAME[2],"Osc2 Phase Distortion");
  273. sprintf(CS_PAR_NAME[3],"Osc2 Detune");
  274. sprintf(CS_PAR_NAME[4],"Osc2 Finetune");
  275. sprintf(CS_PAR_NAME[5],"Vcf CutOff");
  276. sprintf(CS_PAR_NAME[6],"Vcf Resonance");
  277. sprintf(CS_PAR_NAME[7],"Env1 Attack");
  278. sprintf(CS_PAR_NAME[8],"Env1 Decay");
  279. sprintf(CS_PAR_NAME[9],"Env1 Sustain Level");
  280. sprintf(CS_PAR_NAME[10],"Env1 Release");
  281. sprintf(CS_PAR_NAME[11],"Env2 Attack");
  282. sprintf(CS_PAR_NAME[12],"Env2 Decay");
  283. sprintf(CS_PAR_NAME[13],"Env2 Sustain Level");
  284. sprintf(CS_PAR_NAME[14],"Env2 Release");
  285. sprintf(CS_PAR_NAME[15],"Lfo1 Period");
  286. sprintf(CS_PAR_NAME[16],"Lfo2 Period");
  287. sprintf(CS_PAR_NAME[17],"Lfo1->Osc1 PD");
  288. sprintf(CS_PAR_NAME[18],"Lfo1->Osc2 PD");
  289. sprintf(CS_PAR_NAME[19],"Lfo1->Osc1 Pitch");
  290. sprintf(CS_PAR_NAME[20],"Lfo1->Osc2 Pitch");
  291. sprintf(CS_PAR_NAME[21],"Lfo1->Osc1 Volume");
  292. sprintf(CS_PAR_NAME[22],"Lfo1->Osc2 Volume");
  293. sprintf(CS_PAR_NAME[23],"Lfo1->Vcf CutOff");
  294. sprintf(CS_PAR_NAME[24],"Lfo1->Vcf Resonance");
  295. sprintf(CS_PAR_NAME[25],"Lfo2->Osc1 PD");
  296. sprintf(CS_PAR_NAME[26],"Lfo2->Osc2 PD");
  297. sprintf(CS_PAR_NAME[27],"Lfo2->Osc1 Pitch");
  298. sprintf(CS_PAR_NAME[28],"Lfo2->Osc2 Pitch");
  299. sprintf(CS_PAR_NAME[29],"Lfo2->Osc1 Volume");
  300. sprintf(CS_PAR_NAME[30],"Lfo2->Osc2 Volume");
  301. sprintf(CS_PAR_NAME[31],"Lfo2->Vcf CutOff");
  302. sprintf(CS_PAR_NAME[32],"Lfo2->Vcf Resonance");
  303. sprintf(CS_PAR_NAME[33],"Env1->Osc1 PD");
  304. sprintf(CS_PAR_NAME[34],"Env1->Osc2 PD");
  305. sprintf(CS_PAR_NAME[35],"Env1->Osc1 Pitch");
  306. sprintf(CS_PAR_NAME[36],"Env1->Osc2 Pitch");
  307. sprintf(CS_PAR_NAME[37],"Env1->Osc1 Volume");
  308. sprintf(CS_PAR_NAME[38],"Env1->Osc2 Volume");
  309. sprintf(CS_PAR_NAME[39],"Env1->Vcf CutOff");
  310. sprintf(CS_PAR_NAME[40],"Env1->Vcf Resonance");
  311. sprintf(CS_PAR_NAME[41],"Env2->Osc1 PD");
  312. sprintf(CS_PAR_NAME[42],"Env2->Osc2 PD");
  313. sprintf(CS_PAR_NAME[43],"Env2->Osc1 Pitch");
  314. sprintf(CS_PAR_NAME[44],"Env2->Osc2 Pitch");
  315. sprintf(CS_PAR_NAME[45],"Env2->Osc1 Volume");
  316. sprintf(CS_PAR_NAME[46],"Env2->Osc2 Volume");
  317. sprintf(CS_PAR_NAME[47],"Env2->Vcf CutOff");
  318. sprintf(CS_PAR_NAME[48],"Env2->Vcf Resonance");
  319. sprintf(CS_PAR_NAME[49],"Sub-Oscillator Volume");
  320. sprintf(CS_PAR_NAME[50],"Portamento Glide");
  321. sprintf(CS_PAR_NAME[51],"Final [global] Volume");
  322. }
  323.  
  324. void CParcha(int cpar)
  325. {
  326. switch(ped_synthpar)
  327. {
  328. case 1: /* Osc1_PW */
  329. PARASynth[ped_patsam].osc1_pw=cpar*4;
  330. break;
  331.  
  332. case 2: /* Osc2_PW */
  333. PARASynth[ped_patsam].osc2_pw=cpar*4;
  334. break;
  335.  
  336. case 3: /* Osc1_Detune */
  337. PARASynth[ped_patsam].osc2_detune=cpar;
  338. break;
  339.  
  340. case 4: /* Osc2_Finetune */
  341. PARASynth[ped_patsam].osc2_finetune=cpar;
  342. break;
  343.  
  344. case 5: /* VCF Cutoff */
  345. PARASynth[ped_patsam].vcf_cutoff=cpar;
  346. break;
  347.  
  348. case 6: /* VCF_Resonance */
  349. PARASynth[ped_patsam].vcf_resonance=cpar;
  350. break;
  351.  
  352. case 7: /* ENV1_Attack */
  353. PARASynth[ped_patsam].env1_attack=cpar*512;
  354. break;
  355.  
  356. case 8: /* ENV1_Decay */
  357. PARASynth[ped_patsam].env1_decay=cpar*512;
  358. break;
  359.  
  360. case 9: /* ENV1_Sustain */
  361. PARASynth[ped_patsam].env1_sustain=cpar;
  362. break;
  363.  
  364. case 10: /* ENV1_Release */
  365. PARASynth[ped_patsam].env1_release=cpar*512;
  366. break;
  367.  
  368. case 11: /* ENV2_Attack */
  369. PARASynth[ped_patsam].env2_attack=cpar*512;
  370. break;
  371.  
  372. case 12: /* ENV2_Decay */
  373. PARASynth[ped_patsam].env2_decay=cpar*512;
  374. break;
  375.  
  376. case 13: /* ENV2_Sustain */
  377. PARASynth[ped_patsam].env2_sustain=cpar;
  378. break;
  379.  
  380. case 14: /* ENV2_Release */
  381. PARASynth[ped_patsam].env2_release=cpar*512;
  382. break;
  383.  
  384. case 15: /* LFO1_Period */
  385. PARASynth[ped_patsam].lfo1_period=cpar*20;
  386. break;
  387.  
  388. case 16: /* LFO2_Period */
  389. PARASynth[ped_patsam].lfo2_period=cpar*20;
  390. break;
  391.  
  392. case 17:
  393. PARASynth[ped_patsam].lfo1_osc1_pw=cpar;
  394. break;
  395.  
  396. case 18:
  397. PARASynth[ped_patsam].lfo1_osc2_pw=cpar;
  398. break;
  399.  
  400. case 19:
  401. PARASynth[ped_patsam].lfo1_osc1_pitch=cpar;
  402. break;
  403.  
  404. case 20:
  405. PARASynth[ped_patsam].lfo1_osc2_pitch=cpar;
  406. break;
  407.  
  408. case 21:
  409. PARASynth[ped_patsam].lfo1_osc1_volume=cpar;
  410. break;
  411.  
  412. case 22:
  413. PARASynth[ped_patsam].lfo1_osc2_volume=cpar;
  414. break;
  415.  
  416. case 23:
  417. PARASynth[ped_patsam].lfo1_vcf_cutoff=cpar;
  418. break;
  419.  
  420. case 24:
  421. PARASynth[ped_patsam].lfo1_vcf_resonance=cpar;
  422. break;
  423.  
  424. case 25:
  425. PARASynth[ped_patsam].lfo2_osc1_pw=cpar;
  426. break;
  427.  
  428. case 26:
  429. PARASynth[ped_patsam].lfo2_osc2_pw=cpar;
  430. break;
  431.  
  432. case 27:
  433. PARASynth[ped_patsam].lfo2_osc1_pitch=cpar;
  434. break;
  435.  
  436. case 28:
  437. PARASynth[ped_patsam].lfo2_osc2_pitch=cpar;
  438. break;
  439.  
  440. case 29:
  441. PARASynth[ped_patsam].lfo2_osc1_volume=cpar;
  442. break;
  443.  
  444. case 30:
  445. PARASynth[ped_patsam].lfo2_osc2_volume=cpar;
  446. break;
  447.  
  448. case 31:
  449. PARASynth[ped_patsam].lfo2_vcf_cutoff=cpar;
  450. break;
  451.  
  452. case 32:
  453. PARASynth[ped_patsam].lfo2_vcf_resonance=cpar;
  454. break;
  455.  
  456. case 33:
  457. PARASynth[ped_patsam].env1_osc1_pw=cpar;
  458. break;
  459.  
  460. case 34:
  461. PARASynth[ped_patsam].env1_osc2_pw=cpar;
  462. break;
  463.  
  464. case 35:
  465. PARASynth[ped_patsam].env1_osc1_pitch=cpar;
  466. break;
  467.  
  468. case 36:
  469. PARASynth[ped_patsam].env1_osc2_pitch=cpar;
  470. break;
  471.  
  472. case 37:
  473. PARASynth[ped_patsam].env1_osc1_volume=cpar;
  474. break;
  475.  
  476. case 38:
  477. PARASynth[ped_patsam].env1_osc2_volume=cpar;
  478. break;
  479.  
  480. case 39:
  481. PARASynth[ped_patsam].env1_vcf_cutoff=cpar;
  482. break;
  483.  
  484. case 40:
  485. PARASynth[ped_patsam].env1_vcf_resonance=cpar;
  486. break;
  487.  
  488. case 41:
  489. PARASynth[ped_patsam].env2_osc1_pw=cpar;
  490. break;
  491.  
  492. case 42:
  493. PARASynth[ped_patsam].env2_osc2_pw=cpar;
  494. break;
  495.  
  496. case 43:
  497. PARASynth[ped_patsam].env2_osc1_pitch=cpar;
  498. break;
  499.  
  500. case 44:
  501. PARASynth[ped_patsam].env2_osc2_pitch=cpar;
  502. break;
  503.  
  504. case 45:
  505. PARASynth[ped_patsam].env2_osc1_volume=cpar;
  506. break;
  507.  
  508. case 46:
  509. PARASynth[ped_patsam].env2_osc2_volume=cpar;
  510. break;
  511.  
  512. case 47:
  513. PARASynth[ped_patsam].env2_vcf_cutoff=cpar;
  514. break;
  515.  
  516. case 48:
  517. PARASynth[ped_patsam].env2_vcf_resonance=cpar;
  518. break;
  519.  
  520. case 49:
  521. PARASynth[ped_patsam].osc3_volume=cpar;
  522. break;
  523.  
  524. case 50:
  525. PARASynth[ped_patsam].ptc_glide=cpar;
  526. break;
  527.  
  528. case 51:
  529. PARASynth[ped_patsam].glb_volume=cpar;
  530. break;
  531.  
  532. }
  533. }
  534.  
  535. void SaveSynth(void)
  536. {
  537. FILE *in;
  538. char Temph[96];
  539. char extension[10];
  540. sprintf(extension,"TWNNSYN0");
  541. sprintf (Temph,"Saving '%s.nts' synthesizer program on current directory...",PARASynth[ped_patsam].presetname);
  542. mess_box(Temph);
  543. sprintf(Temph,"%s.nts",PARASynth[ped_patsam].presetname);
  544. in = fopen(Temph,"wb");
  545.  
  546. if (in!=NULL)
  547. {
  548. fwrite(extension, sizeof( char),9,in);
  549. fwrite(&PARASynth[ped_patsam].presetname, sizeof(SynthParameters), 1,in);
  550. fclose(in);
  551. Read_SMPT();
  552. last_index=-1;
  553. ltActualize(0);
  554. mess_box("Synthesizer program saved succesful...");    
  555. }
  556. else
  557. mess_box("Synthesizer program save failed...");
  558.  
  559. if(snamesel==3)
  560. {
  561. guiDial(432,352,164,16,PARASynth[ped_patsam].presetname,140);
  562. snamesel=0;
  563. }
  564.  
  565. }
  566.  
  567. void LoadSynth(void)
  568. {
  569. FILE *in;
  570. in = fopen(name,"rb");
  571.  
  572. if (in!=NULL)
  573. {
  574. // Reading and checking extension...
  575. char extension[10];
  576. fread(extension, sizeof( char),9,in);
  577.  
  578. if (strcmp(extension,"TWNNSYN0")==0)
  579. {
  580. /* Ok, extension matched! */
  581. mess_box("Loading 'NoiseTrekker' Synthesizer -> structure.");    
  582. ResetSynthParameters(&PARASynth[ped_patsam]);
  583. fread(&PARASynth[ped_patsam], sizeof(SynthParameters), 1,in);
  584.  
  585. if(PARASynth[ped_patsam].ptc_glide<1)PARASynth[ped_patsam].ptc_glide=64;
  586. if(PARASynth[ped_patsam].glb_volume<1)PARASynth[ped_patsam].glb_volume=64;
  587.  
  588. if (userscreen==6)Actualize_Midi_Ed(1);
  589. Synthprg[ped_patsam]=true;
  590. sprintf(nameins[ped_patsam],PARASynth[ped_patsam].presetname);
  591.  
  592. Actualize_Sample_Ed(0,0);
  593. Actualize_Main_Ed();
  594. Actualize_Patterned();
  595.  
  596. mess_box("Synthesizer program loaded ok.");
  597. }
  598. else
  599. mess_box("That file is not a NoiseTrekker synthesizer program file...");
  600.  
  601. fclose(in);
  602. }
  603. else
  604. mess_box("Synthesizer program loading failed. (Probably: file not found)");
  605. }
  606.  
  607. void Draw_Sampled_Wave(void)
  608. {
  609. if (draw_sampled_wave)
  610. {
  611.     if(SampleType[ped_patsam][ped_split]>0) /* Any Sample Out There? */
  612.     {
  613.     int strober=SampleChannels[ped_patsam][ped_split]*2;
  614.     int s_ey=458+(resty/strober);
  615.     int s_ey2=s_ey+((resty/strober)*2);
  616.     int s_size=resty/strober;
  617.     int s_coef=32768/s_size;
  618.  
  619.     if (rs_coef>s_coef)rs_coef=s_coef;
  620.     if (rs_coef<1)rs_coef=1;
  621.  
  622.     int rcolor1=0xCCCC;
  623.     int rcolor2=0x0;
  624.     int    rcolor3=0x1234;
  625.     
  626.     if(SampleChannels[ped_patsam][ped_split]==1)
  627.     {
  628.     for (int s_ex=0;s_ex<512;s_ex++)
  629.     {
  630.     long const s_offset=(s_ex*sed_display_length)/512+sed_display_start;
  631.     int h=*(RawSamples[ped_patsam][0][ped_split]+s_offset)/rs_coef;
  632.     if(h>s_size)h=s_size;
  633.     if(h<-s_size)h=-s_size;
  634.  
  635.     int s_y=s_ey-h;    
  636.     if (sed_range_mode && s_offset>=sed_range_start && s_offset<=sed_range_end)
  637.     {
  638.     rcolor2=0x1232;
  639.     rcolor1=0xDDDD;
  640.     }else{
  641.     rcolor1=0xCCCC;
  642.     rcolor2=0x0;
  643.     }
  644.  
  645.     S->drawVLine(s_ex,458,CONSOLE_HEIGHT2,rcolor2);
  646.     S->drawVLine(s_ex,s_ey,s_y,rcolor1);
  647.     S->drawVLine(s_ex,s_ey,s_ey,0xCCC0);
  648. }
  649. }// If
  650.  
  651. // STEREO DISPLAY
  652.     
  653.     if(SampleChannels[ped_patsam][ped_split]==2)
  654.     {
  655.     for (int s_ex=0;s_ex<512;s_ex++)
  656.     {
  657.     long const s_offset=(s_ex*sed_display_length)/512+sed_display_start;
  658.     int h=*(RawSamples[ped_patsam][0][ped_split]+s_offset)/rs_coef;
  659.     int h2=*(RawSamples[ped_patsam][1][ped_split]+s_offset)/rs_coef;
  660.     if(h>s_size)h=s_size;
  661.     if(h<-s_size)h=-s_size;
  662.     if(h2>s_size)h2=s_size;
  663.     if(h2<-s_size)h2=-s_size;
  664.     int s_y=s_ey-h;
  665.     int s_y2=s_ey2-h2;
  666.     
  667.     if (sed_range_mode && s_offset>=sed_range_start && s_offset<=sed_range_end)
  668.     {
  669.     rcolor2=0x1232;
  670.     rcolor1=0xDDDD;
  671.     }else{
  672.     rcolor1=0xCCCC;
  673.     rcolor2=0x0;
  674.     }
  675.     
  676.     S->drawVLine(s_ex,458,CONSOLE_HEIGHT2,rcolor2);
  677.     S->drawVLine(s_ex,s_ey,s_y,rcolor1);
  678.     S->drawVLine(s_ex,s_ey2,s_y2,rcolor1);
  679.     S->drawVLine(s_ex,s_ey,s_ey,0xCCC0);
  680.     S->drawVLine(s_ex,s_ey2,s_ey2,0xCCC0);
  681. }
  682. }// If Stereo
  683.  
  684. if (LoopType[ped_patsam][ped_split])
  685. {
  686.     int LSX=LoopStart[ped_patsam][ped_split]-sed_display_start;
  687.     int LEX=LoopEnd[ped_patsam][ped_split]-sed_display_start;
  688.  
  689.     LSX=(LSX*512)/sed_display_length;
  690.     LEX=(LEX*512)/sed_display_length;
  691.  
  692.     if (LSX>=0 && LSX<512)
  693.     {
  694.     S->drawVLine(LSX,458,CONSOLE_HEIGHT2,0xEEEE);
  695.     S->drawHLine(460,LSX+2,LSX+5,0xFFFF);
  696.     S->drawHLine(461,LSX+2,LSX+2,0xFFFF);
  697.     S->drawHLine(462,LSX+2,LSX+5,0xFFFF);
  698.     S->drawHLine(463,LSX+5,LSX+5,0xFFFF);
  699.     S->drawHLine(464,LSX+2,LSX+5,0xFFFF);
  700.     }
  701.  
  702.     if (LEX>=0 && LEX<512)
  703.     {
  704.     S->drawVLine(LEX,458,CONSOLE_HEIGHT2,0xEEEF);    
  705.     S->drawHLine(460,LEX-5,LEX-2,0xFFFF);
  706.     S->drawHLine(461,LEX-5,LEX-5,0xFFFF);
  707.     S->drawHLine(462,LEX-5,LEX-2,0xFFFF);
  708.     S->drawHLine(463,LEX-5,LEX-5,0xFFFF);
  709.     S->drawHLine(464,LEX-5,LEX-2,0xFFFF);
  710.     }
  711. }
  712.  
  713. }// IF CHECK SAMPLE
  714. else
  715. {
  716. for (int s_ex=0;s_ex<512;s_ex++)
  717. S->drawVLine(s_ex,458,CONSOLE_HEIGHT2,0x0004);
  718. }
  719.  
  720. draw_sampled_wave=false;}
  721. }
  722.  
  723. void NewWavy(void)
  724. {
  725. draw_sampled_wave=true;
  726. sed_display_start=0;
  727. sed_display_length=SampleNumSamples[ped_patsam][ped_split];
  728. sed_range_start=0;
  729. sed_range_end=0;
  730. sed_range_mode=false;
  731. Actualize_Wave_Ed(0);
  732. }
  733.  
  734. void Draw_Sampled_Wave2(void)
  735. {
  736. if (draw_sampled_wave2)
  737. {
  738.     if(SampleType[ped_patsam][ped_split]>0) /* Any Sample Out There? */
  739.     {
  740.     int strober=SampleChannels[ped_patsam][ped_split]*2;
  741.     int s_ey=458+(resty/strober);
  742.     int s_ey2=s_ey+((resty/strober)*2);
  743.     int    rcolor3=0x1234;
  744.     
  745.     if(SampleChannels[ped_patsam][ped_split]==1)
  746.     {
  747.     for (int s_ex=0;s_ex<512;s_ex++)
  748.     {
  749.     long const s_offset=(s_ex*sed_display_length)/512+sed_display_start;
  750.     
  751.     if (sp_Position[ped_track].half.first>s_offset)
  752.         rcolor3=0xFFFF;
  753.         else
  754.         rcolor3=0x4321;
  755.  
  756.     S->drawVLine(s_ex,s_ey,s_ey,rcolor3);
  757.     }
  758. }// If
  759.  
  760. // STEREO DISPLAY
  761.     
  762.     if(SampleChannels[ped_patsam][ped_split]==2)
  763.     {
  764.     for (int s_ex=0;s_ex<512;s_ex++)
  765.     {
  766.     long const s_offset=(s_ex*sed_display_length)/512+sed_display_start;
  767.         
  768.     if (sp_Position[ped_track].half.first>s_offset)
  769.         rcolor3=0xFFFF;
  770.         else
  771.         rcolor3=0x4321;
  772.  
  773.     S->drawVLine(s_ex,s_ey,s_ey,rcolor3);
  774.     S->drawVLine(s_ex,s_ey2,s_ey2,rcolor3);}
  775.  
  776. }// If Stereo
  777.  
  778. }// IF CHECK SAMPLE
  779.  
  780. draw_sampled_wave2=false;}
  781. }
  782.  
  783. void Draw_Sampled_Wave3(void)
  784. {
  785.  
  786. if (draw_sampled_wave3)
  787.     {
  788.     if(SampleType[ped_patsam][ped_split]>0) /* Any Sample Out There? */
  789.     {
  790.     int strober=SampleChannels[ped_patsam][ped_split]*2;
  791.     int s_ey=458+(resty/strober);
  792.     int s_ey2=s_ey+((resty/strober)*2);
  793.     int    rcolor3=0xCCC0;
  794.     
  795.     if(SampleChannels[ped_patsam][ped_split]==1)S->drawHLine(s_ey,0,511,rcolor3);    
  796.     
  797.     if(SampleChannels[ped_patsam][ped_split]==2){S->drawHLine(s_ey,0,511,rcolor3);S->drawHLine(s_ey2,0,511,rcolor3);}// If Stereo
  798.     }// IF CHECK SAMPLE
  799.     draw_sampled_wave3=false;
  800.     }
  801. }
  802.  
  803. void Actualize_Wave_Ed(char gode)
  804. {
  805.  
  806. if(SampleType[ped_patsam][ped_split])
  807. {
  808. if (gode==3 || gode==0)
  809. {
  810. outlong(708,538,sed_display_start,10);
  811. outlong(708,556,sed_display_length,12);
  812. }
  813.  
  814. if (gode==5 || gode==0)
  815. outlong(646,538,sed_range_start,10);
  816.  
  817. if (gode==4 || gode==5 || gode==0)
  818. outlong(646,556,sed_range_end,11);
  819.  
  820. if (gode==0 || gode==6)mess_box("Full Vertical View...");
  821.  
  822. /* Sample Processing plant here */
  823.  
  824. // Sample editor functions code are implemented in this
  825. // function.
  826.  
  827. /* Cut Sample */
  828.  
  829. if (gode==20)
  830. {
  831. guiDial(516,476,29,16,"Cut",100);
  832.  
  833. long cutsize=(sed_range_end-sed_range_start)+1;
  834. long newsize=SampleNumSamples[ped_patsam][ped_split]-cutsize;
  835.  
  836. if (newsize!=0)
  837. {
  838. mess_box("Cutting sample...");
  839. StopIfSp();
  840. ss->stop();
  841. Sleep(256);
  842. char nc=SampleChannels[ped_patsam][ped_split];
  843.  
  844. short *Mono=(short *)malloc(newsize*2);
  845.  
  846. short *Stereo;
  847. if (nc==2)Stereo=(short *)malloc(newsize*2);
  848.  
  849. long p_s=0;
  850.  
  851. if (sed_range_start>0)
  852. {
  853. for(long wao=0;wao<sed_range_start;wao++)
  854. {
  855. *(Mono+p_s)=*(RawSamples[ped_patsam][0][ped_split]+wao);
  856.  
  857. if (nc==2)
  858. *(Stereo+p_s)=*(RawSamples[ped_patsam][1][ped_split]+wao);
  859.  
  860. p_s++;
  861. }
  862. }
  863.  
  864. if (SampleNumSamples[ped_patsam][ped_split]-sed_range_end>1)
  865. {
  866. for(int wao=sed_range_end+1;wao<SampleNumSamples[ped_patsam][ped_split];wao++)
  867. {
  868. *(Mono+p_s)=*(RawSamples[ped_patsam][0][ped_split]+wao);
  869.  
  870. if (nc==2)
  871. *(Stereo+p_s)=*(RawSamples[ped_patsam][1][ped_split]+wao);
  872.  
  873. p_s++;
  874. }
  875. }
  876.  
  877. free(RawSamples[ped_patsam][0][ped_split]);
  878. RawSamples[ped_patsam][0][ped_split]=Mono;
  879.  
  880. if (nc==2)
  881. {
  882. free(RawSamples[ped_patsam][1][ped_split]);
  883. RawSamples[ped_patsam][1][ped_split]=Stereo;
  884. }
  885.  
  886. SampleNumSamples[ped_patsam][ped_split]=newsize;
  887.  
  888. if(sed_display_length+sed_display_start>SampleNumSamples[ped_patsam][ped_split])
  889. sed_display_length=SampleNumSamples[ped_patsam][ped_split]-sed_display_start;
  890.  
  891. sed_range_mode=false;
  892. sed_range_start=0;
  893. sed_range_end=0;
  894. draw_sampled_wave=true;
  895. outlong(708,538,sed_display_start,10);
  896. outlong(708,556,sed_display_length,12);
  897. outlong(646,538,sed_range_start,10);
  898. outlong(646,556,sed_range_end,11);
  899. mess_box("Selection cut ok.");
  900.  
  901. CheckLoops();
  902. if(userscreen==2)Actualize_Sample_Ed(0,4);
  903.  
  904. ss->play();
  905. }
  906. else
  907. {
  908. mess_box("You cannot cut entire sample, use 'delete' on instrument instead.");
  909. }
  910. guiDial(516,476,29,16,"Cut",200);
  911. }
  912.  
  913. if (gode==21)
  914. {
  915.  
  916. guiDial(516,512,60,16,"DC Adjust",100);
  917. mess_box("Calculating shifting-factor...");Sleep(100);
  918.  
  919. char nc=SampleChannels[ped_patsam][ped_split];
  920.  
  921. float l_shift=0;
  922. float r_shift=0;
  923.  
  924. for(long wao=sed_range_start;wao<sed_range_end+1;wao++)
  925. {
  926. l_shift+=*(RawSamples[ped_patsam][0][ped_split]+wao);
  927.  
  928. if (nc==2)
  929. r_shift+=*(RawSamples[ped_patsam][1][ped_split]+wao);
  930. }
  931.  
  932. l_shift/=(sed_range_end+1)-sed_range_start;
  933. r_shift/=(sed_range_end+1)-sed_range_start;
  934.  
  935. mess_box("Re-building waves...");Sleep(100);
  936.  
  937. for(wao=sed_range_start;wao<sed_range_end+1;wao++)
  938. {
  939. float bleak=*(RawSamples[ped_patsam][0][ped_split]+wao);
  940. bleak-=l_shift;
  941.  
  942. if(bleak>32767)bleak=32767;
  943. if(bleak<-32767)bleak=-32767;
  944. *(RawSamples[ped_patsam][0][ped_split]+wao)=(short)bleak;
  945.  
  946. if (nc==2){
  947. bleak=*(RawSamples[ped_patsam][1][ped_split]+wao);
  948. bleak-=r_shift;
  949.  
  950. if(bleak>32767)bleak=32767;
  951. if(bleak<-32767)bleak=-32767;
  952. *(RawSamples[ped_patsam][1][ped_split]+wao)=(short)bleak;}
  953. }
  954.  
  955. draw_sampled_wave=true;
  956.  
  957. guiDial(516,512,60,16,"DC Adjust",200);
  958. mess_box("Selection calibrated...");
  959. }
  960.  
  961. /* Normalizing */
  962.  
  963. if (gode==22)
  964. {
  965. guiDial(516,494,60,16,"Maximize",100);
  966.  
  967. mess_box("Searching highest peak...");Sleep(100);
  968.  
  969. char nc=SampleChannels[ped_patsam][ped_split];
  970.  
  971. float l_shift=0;
  972.  
  973. for(long wao=sed_range_start;wao<sed_range_end+1;wao++)
  974. {
  975. if (abs(*(RawSamples[ped_patsam][0][ped_split]+wao))>l_shift)
  976. l_shift=*(RawSamples[ped_patsam][0][ped_split]+wao);
  977.  
  978. if (nc==2)
  979. {
  980. if (abs(*(RawSamples[ped_patsam][1][ped_split]+wao))>l_shift)
  981. l_shift=*(RawSamples[ped_patsam][1][ped_split]+wao);
  982. }
  983.  
  984. }
  985.  
  986. l_shift=32768.0f/l_shift;
  987.  
  988. mess_box("Amplifying...");Sleep(100);
  989.  
  990. for(wao=sed_range_start;wao<sed_range_end+1;wao++)
  991. {
  992. float bleak=*(RawSamples[ped_patsam][0][ped_split]+wao);
  993. bleak*=l_shift;
  994.  
  995. if(bleak>32767)bleak=32767;
  996. if(bleak<-32767)bleak=-32767;
  997. *(RawSamples[ped_patsam][0][ped_split]+wao)=(short)bleak;
  998.  
  999. if (nc==2){
  1000. bleak=*(RawSamples[ped_patsam][1][ped_split]+wao);
  1001. bleak*=l_shift;
  1002.  
  1003. if(bleak>32767)bleak=32767;
  1004. if(bleak<-32767)bleak=-32767;
  1005. *(RawSamples[ped_patsam][1][ped_split]+wao)=(short)bleak;}
  1006. }
  1007.  
  1008. draw_sampled_wave=true;
  1009.  
  1010. guiDial(516,494,60,16,"Maximize",200);
  1011. mess_box("Selection maximized...");
  1012. }
  1013.  
  1014. /* Fade In */
  1015.  
  1016. if (gode==23)
  1017. {
  1018. guiDial(516,530,60,16,"Fade In",100);
  1019. mess_box("Fade In Selection...");Sleep(100);
  1020.  
  1021. char nc=SampleChannels[ped_patsam][ped_split];
  1022.  
  1023. float c_vol=0.0f;
  1024. float const coef_vol=1.0f/((sed_range_end+1)-sed_range_start);
  1025.  
  1026. for(long wao=sed_range_start;wao<sed_range_end+1;wao++)
  1027. {
  1028. float bleak=*(RawSamples[ped_patsam][0][ped_split]+wao);
  1029. bleak*=c_vol;
  1030. if(bleak>32767)bleak=32767;
  1031. if(bleak<-32767)bleak=-32767;
  1032.  
  1033. *(RawSamples[ped_patsam][0][ped_split]+wao)=(short)bleak;
  1034.  
  1035. if (nc==2){
  1036. bleak=*(RawSamples[ped_patsam][1][ped_split]+wao);
  1037. bleak*=c_vol;
  1038.  
  1039. if(bleak>32767)bleak=32767;
  1040. if(bleak<-32767)bleak=-32767;
  1041. *(RawSamples[ped_patsam][1][ped_split]+wao)=(short)bleak;}
  1042.  
  1043. c_vol+=coef_vol;
  1044. }
  1045.  
  1046. draw_sampled_wave=true;
  1047.  
  1048. guiDial(516,530,60,16,"Fade In",200);
  1049.  
  1050. mess_box("Finished...");
  1051. }
  1052.  
  1053. /* Fade Out */
  1054.  
  1055. if (gode==24)
  1056. {
  1057. guiDial(516,548,60,16,"Fade Out",100);
  1058. mess_box("Fade Out Selection...");Sleep(100);
  1059.  
  1060. char nc=SampleChannels[ped_patsam][ped_split];
  1061.  
  1062. float c_vol=1.0f;
  1063. float const coef_vol=1.0f/((sed_range_end+1)-sed_range_start);
  1064.  
  1065. for(long wao=sed_range_start;wao<sed_range_end+1;wao++)
  1066. {
  1067. float bleak=*(RawSamples[ped_patsam][0][ped_split]+wao);
  1068. bleak*=c_vol;
  1069. if(bleak>32767)bleak=32767;
  1070. if(bleak<-32767)bleak=-32767;
  1071.  
  1072. *(RawSamples[ped_patsam][0][ped_split]+wao)=(short)bleak;
  1073.  
  1074. if (nc==2){
  1075. bleak=*(RawSamples[ped_patsam][1][ped_split]+wao);
  1076. bleak*=c_vol;
  1077.  
  1078. if(bleak>32767)bleak=32767;
  1079. if(bleak<-32767)bleak=-32767;
  1080. *(RawSamples[ped_patsam][1][ped_split]+wao)=(short)bleak;}
  1081.  
  1082. c_vol-=coef_vol;
  1083. }
  1084.  
  1085. draw_sampled_wave=true;
  1086.  
  1087. guiDial(516,548,60,16,"Fade Out",200);
  1088.  
  1089. mess_box("Finished...");
  1090. }
  1091.  
  1092. /* Half */
  1093.  
  1094. if (gode==25)
  1095. {
  1096. guiDial(547,476,29,16,"Half",100);
  1097.  
  1098. mess_box("Halving Selection Volume...");Sleep(100);
  1099.  
  1100. char nc=SampleChannels[ped_patsam][ped_split];
  1101.  
  1102. float c_vol=0.5f;
  1103.  
  1104. for(long wao=sed_range_start;wao<sed_range_end+1;wao++)
  1105. {
  1106. float bleak=*(RawSamples[ped_patsam][0][ped_split]+wao);
  1107. bleak*=c_vol;
  1108.  
  1109. *(RawSamples[ped_patsam][0][ped_split]+wao)=(short)bleak;
  1110.  
  1111. if (nc==2){
  1112. bleak=*(RawSamples[ped_patsam][1][ped_split]+wao);
  1113. bleak*=c_vol;
  1114. *(RawSamples[ped_patsam][1][ped_split]+wao)=(short)bleak;}
  1115. }
  1116.  
  1117. draw_sampled_wave=true;
  1118. guiDial(547,476,29,16,"Half",200);
  1119. mess_box("Finished...");
  1120. }
  1121.  
  1122. /* SAMPLE EDITOR FUNCTIONS */
  1123. }
  1124. else
  1125. guiDial(646,538,122,34,"No Sample Loaded",108);
  1126. }
  1127.  
  1128. void guiDial3(int x,int y, int sx,int sy,const char* str,int brill)
  1129. {
  1130.     x++;
  1131.     y++;
  1132.     int tbrill1=brill-32;
  1133.     int tbrill2=brill/4;
  1134.     int tbrill3=brill/2;
  1135.     int x2=x+sx;
  1136.     int y2=y+sy;
  1137.     
  1138.     S->setColor(0,brill,brill);
  1139.     S->line(x, y,x2,y);
  1140.     
  1141.     S->setColor(0,tbrill1,tbrill1);
  1142.     S->line(x,y+2,x,y2);
  1143.  
  1144.     S->setColor(0,tbrill2,tbrill2);
  1145.     S->line(x+1,y2,x2,y2);
  1146.     S->line(x2,y+1,x2,y2);
  1147.     
  1148.     S->setColor(0,tbrill3,tbrill3);
  1149.  
  1150.     for (int filler=y+1;filler<y2;filler+=2)
  1151.     S->line(x+1,filler,x2-1,filler);    
  1152.     
  1153.     S->printXY(x+3, y+1, 0x00BBDDDD, str);    
  1154. }
  1155.  
  1156.  
  1157.  
  1158. void Initreverb()
  1159. {
  1160.     switch (DelayType)
  1161.     {
  1162.     case 0: // Deep Night II
  1163.     decays[0][0]= 20; decays[0][1]=  0;
  1164.     decays[1][0]=  0; decays[1][1]= 15;
  1165.     decays[2][0]= 15; decays[2][1]=  0;
  1166.     decays[3][0]=  0; decays[3][1]= 10;
  1167.     decays[4][0]=  9; decays[4][1]=  0;
  1168.     decays[5][0]=  1; decays[5][1]=  8;
  1169.     decays[6][0]=  8; decays[6][1]=  1;
  1170.     decays[7][0]=  1; decays[7][1]=  4;
  1171.     decays[8][0]=  4; decays[8][1]=  0;
  1172.     decays[9][0]=  1; decays[9][1]=  2;
  1173.     
  1174.     delays[0] = 1000;
  1175.     delays[1] = 1100;    
  1176.     delays[2] = 1200;
  1177.     delays[3] = 1300;
  1178.     delays[4] = 1400;
  1179.     delays[5] = 1800;
  1180.     delays[6] = 1900;
  1181.     delays[7] = 2000;
  1182.     delays[8] = 2100;
  1183.     delays[9] = 2200;
  1184.  
  1185.     num_echoes=10;
  1186.     break;
  1187.  
  1188.     case 1: // Deep Night III
  1189.     decays[0][0]=  7; decays[0][1]=  7;
  1190.     decays[1][0]=-13; decays[1][1]=-15;
  1191.     decays[2][0]= 25; decays[2][1]= 32;
  1192.     decays[3][0]= 31; decays[3][1]= 26;
  1193.     decays[4][0]= 20; decays[4][1]=-30;
  1194.     decays[5][0]= 28; decays[5][1]= 24;
  1195.     decays[6][0]=-21; decays[6][1]=-18;
  1196.     decays[7][0]= 18; decays[7][1]= 14;
  1197.     decays[8][0]=-13; decays[8][1]=-12;
  1198.     decays[9][0]=  9; decays[9][1]=  7;
  1199.     
  1200.     delays[0] = 1000;
  1201.     delays[1] = 1600;    
  1202.     delays[2] = 2100;
  1203.     delays[3] = 2400;
  1204.     delays[4] = 2290;
  1205.     delays[5] = 2350;
  1206.     delays[6] = 2400;
  1207.     delays[7] = 2500;
  1208.     delays[8] = 2680;
  1209.     delays[9] = 3410;
  1210.  
  1211.     num_echoes=10;
  1212.     break;
  1213.  
  1214.     case 2: // Deep Night III
  1215.     decays[0][0]=  1; decays[0][1]=  2;
  1216.     decays[1][0]=  1; decays[1][1]= -4;
  1217.     decays[2][0]=  9; decays[2][1]=  1;
  1218.     decays[3][0]= 12; decays[3][1]= 11;
  1219.     decays[4][0]= 22; decays[4][1]= -1;
  1220.     decays[5][0]=  1; decays[5][1]= 19;
  1221.     decays[6][0]= 15; decays[6][1]= -1;
  1222.     decays[7][0]=  1; decays[7][1]= 12;
  1223.     decays[8][0]=  7; decays[8][1]=- 1;
  1224.     decays[9][0]=  2; decays[9][1]=  3;
  1225.     
  1226.     delays[0] =  100;
  1227.     delays[1] =  200;    
  1228.     delays[2] =  300;
  1229.     delays[3] = 1000;
  1230.     delays[4] = 1190;
  1231.     delays[5] = 1250;
  1232.     delays[6] = 1300;
  1233.     delays[7] = 1400;
  1234.     delays[8] = 1580;
  1235.     delays[9] = 1610;
  1236.  
  1237.     num_echoes=10;
  1238.     break;
  1239.  
  1240.     
  1241.     case 3: // Deep Night II
  1242.     decays[0][0]= 22; decays[0][1]=  3;
  1243.     decays[1][0]=  5; decays[1][1]= 12;
  1244.     decays[2][0]= 12; decays[2][1]=  1;
  1245.     decays[3][0]=  3; decays[3][1]=  5;
  1246.     
  1247.     delays[0] = 2000;
  1248.     delays[1] = 4400;    
  1249.     delays[2] = 5000;
  1250.     delays[3] = 6200;
  1251.     
  1252.     num_echoes=4;
  1253.     break;
  1254.  
  1255.     case 4: // Deep Night II
  1256.     decays[0][0]= 11; decays[0][1]= 0;
  1257.     decays[1][0]= 0 ; decays[1][1]= 21;
  1258.     decays[2][0]= 31; decays[2][1]= 0;
  1259.     decays[3][0]= 0 ; decays[3][1]= 41;
  1260.     
  1261.     delays[0] = 3012;
  1262.     delays[1] = 4012;
  1263.     delays[2] = 4022;
  1264.     delays[3] = 5232;
  1265.     
  1266.     num_echoes=4;
  1267.     break;
  1268.  
  1269.     case 5: // Deep Night III
  1270.     decays[0][0]=  7; decays[0][1]=  7;
  1271.     decays[1][0]=-13; decays[1][1]=-15;
  1272.     decays[2][0]= 25; decays[2][1]= 32;
  1273.     decays[3][0]= 31; decays[3][1]= 26;
  1274.     decays[4][0]= 20; decays[4][1]=-30;
  1275.     decays[5][0]= 28; decays[5][1]= 24;
  1276.     decays[6][0]=-21; decays[6][1]=-18;
  1277.     decays[7][0]= 18; decays[7][1]= 14;
  1278.     decays[8][0]=-13; decays[8][1]=-12;
  1279.     decays[9][0]=  9; decays[9][1]=  7;
  1280.     
  1281.     delays[0] = 20;
  1282.     delays[1] = 600;    
  1283.     delays[2] = 100;
  1284.     delays[3] = 400;
  1285.     delays[4] = 290;
  1286.     delays[5] = 1350;
  1287.     delays[6] = 400;
  1288.     delays[7] = 1500;
  1289.     delays[8] = 1680;
  1290.     delays[9] = 1410;
  1291.  
  1292.     num_echoes=10;
  1293.     break;
  1294.  
  1295.     case 6: // Deep Night III
  1296.     decays[0][0]=  7; decays[0][1]=  7;
  1297.     decays[1][0]=-13; decays[1][1]=-15;
  1298.     decays[2][0]= 25; decays[2][1]= 32;
  1299.     decays[3][0]= 31; decays[3][1]= 26;
  1300.     decays[4][0]= 20; decays[4][1]=-30;
  1301.     decays[5][0]= 28; decays[5][1]= 24;
  1302.     decays[6][0]=-21; decays[6][1]=-18;
  1303.     decays[7][0]= 18; decays[7][1]= 14;
  1304.     decays[8][0]=-13; decays[8][1]=-12;
  1305.     decays[9][0]= 12; decays[9][1]=  8;
  1306.     
  1307.     delays[0] = 20;
  1308.     delays[1] = 600;    
  1309.     delays[2] = 700;
  1310.     delays[3] = 800;
  1311.     delays[4] = 990;
  1312.     delays[5] = 1350;
  1313.     delays[6] = 1400;
  1314.     delays[7] = 1500;
  1315.     delays[8] = 1680;
  1316.     delays[9] = 1910;
  1317.  
  1318.     num_echoes=10;
  1319.     break;
  1320.  
  1321. }
  1322.  
  1323.     for (int i=0;i<num_echoes;i++)
  1324.     {
  1325.     int mlrw=99999-(delay_time+delays[i])*4;
  1326.     if (mlrw<0)mlrw=0;
  1327.  
  1328.     decays[i][0]=decays[i][0]*0.015625f;
  1329.     decays[i][1]=decays[i][1]*0.015625f;
  1330.     
  1331.     counters[i]=mlrw;
  1332.     }
  1333.     rev_counter=99999;
  1334. }
  1335.  
  1336. float sign(float entry)
  1337. {
  1338.     if (entry>=0.0f)
  1339.     return 1.0f;
  1340.     else
  1341.     return -1.0f;
  1342. }
  1343. void Compressor_work(void)
  1344. {
  1345.     if (compressor)
  1346.     {
  1347.     
  1348.     float l_rout=0;
  1349.     float r_rout=0;
  1350.  
  1351.     // COMB FILTER:
  1352.  
  1353.     for (int i=0;i<num_echoes;i++)
  1354.     {
  1355.     
  1356.         delay_left_buffer[i][rev_counter]  = (delay_left_final + delay_right_final + delay_left_buffer [i][counters[i]])*decays[i][0];
  1357.         l_rout += delay_left_buffer[i][counters[i]];
  1358.         if(++counters[i]>99999)counters[i]=0;
  1359.     }
  1360.     
  1361.     if(++rev_counter>99999)rev_counter=0;
  1362.     
  1363.     // STEREO ALLPASS FILTER:
  1364.  
  1365.     float temp1;
  1366.     
  1367.     temp1 = LFP_L.fWork(l_rout++,REVERBFILTER);
  1368.     
  1369.     l_rout  = (-Feedback * temp1)+allBuffer_L[delayedCounter];
  1370.        allBuffer_L[currentCounter]=(l_rout*Feedback)+temp1;
  1371.     
  1372.     temp1 = l_rout;
  1373.     l_rout  = (-Feedback2 * temp1)+allBuffer_L2[delayedCounter2];
  1374.        allBuffer_L2[currentCounter]=(l_rout*Feedback2)+temp1;
  1375.     
  1376.     temp1 = l_rout;
  1377.     l_rout  = (-Feedback3 * temp1)+allBuffer_L3[delayedCounter3];
  1378.        allBuffer_L3[currentCounter]=(l_rout*Feedback3)+temp1;
  1379.         
  1380.     temp1 = l_rout;
  1381.     l_rout  = (-Feedback4 * temp1)+allBuffer_L4[delayedCounter4];
  1382.      allBuffer_L4[currentCounter]=(l_rout*Feedback4)+temp1;
  1383.     
  1384.     temp1 = l_rout;
  1385.     l_rout  = (-Feedback5 * temp1)+allBuffer_L5[delayedCounter5];
  1386.      allBuffer_L5[currentCounter]=(l_rout*Feedback5)+temp1;
  1387.     
  1388.     // Stereo diffussion
  1389.  
  1390.     right_float+=l_rout;
  1391.     
  1392.     temp1 = l_rout;
  1393.     l_rout  = (-Feedback6 * temp1)+allBuffer_L6[delayedCounter6];
  1394.      allBuffer_L6[currentCounter]=(l_rout*Feedback6)+temp1;
  1395.     
  1396.     // Updating delayedCointers
  1397.     
  1398.     if(++delayedCounter>5759)delayedCounter=0;
  1399.     if(++delayedCounter2>5759)delayedCounter2=0;
  1400.     if(++delayedCounter3>5759)delayedCounter3=0;
  1401.     if(++delayedCounter4>5759)delayedCounter4=0;
  1402.     if(++delayedCounter5>5759)delayedCounter5=0;
  1403.     if(++delayedCounter6>5759)delayedCounter6=0;
  1404.  
  1405.     // Updating currentCointer
  1406.     currentCounter++;
  1407.     if(currentCounter>5759)currentCounter=0;
  1408.  
  1409.     left_float+=l_rout;
  1410.     }
  1411. }
  1412.  
  1413. void allPassInit(float miliSecs)
  1414. {
  1415. currentCounter=5759;
  1416. delayedCounter=5759-int(miliSecs*44.1f);
  1417. delayedCounter2=5759-int(miliSecs*50.1f);
  1418. delayedCounter3=5759-int(miliSecs*60.1f);
  1419. delayedCounter4=5759-int(miliSecs*70.1f);
  1420. delayedCounter5=5759-int(miliSecs*73.1f);
  1421. delayedCounter6=5759-int(miliSecs*79.1f);
  1422.  
  1423. if (delayedCounter<0)delayedCounter=0;
  1424. if (delayedCounter2<0)delayedCounter2=0;
  1425. if (delayedCounter3<0)delayedCounter3=0;
  1426. if (delayedCounter4<0)delayedCounter4=0;
  1427. if (delayedCounter5<0)delayedCounter5=0;
  1428. if (delayedCounter6<0)delayedCounter6=0;
  1429.  
  1430. for (int yb=0;yb<5760;yb++)
  1431. {
  1432. allBuffer_L[yb]=0.0f;
  1433. allBuffer_L2[yb]=0.0f;
  1434. allBuffer_L3[yb]=0.0f;
  1435. allBuffer_L4[yb]=0.0f;
  1436. allBuffer_L5[yb]=0.0f;
  1437. allBuffer_L6[yb]=0.0f;
  1438. }
  1439.  
  1440. }
  1441.  
  1442. void CheckLoops(void)
  1443. {
  1444. if (LoopStart[ped_patsam][ped_split]<0)LoopStart[ped_patsam][ped_split]=0;
  1445. if (LoopStart[ped_patsam][ped_split]>=SampleNumSamples[ped_patsam][ped_split])LoopStart[ped_patsam][ped_split]=SampleNumSamples[ped_patsam][ped_split]-1;
  1446. if (LoopEnd[ped_patsam][ped_split]<0)LoopEnd[ped_patsam][ped_split]=0;
  1447. if (LoopEnd[ped_patsam][ped_split]>=SampleNumSamples[ped_patsam][ped_split])LoopEnd[ped_patsam][ped_split]=SampleNumSamples[ped_patsam][ped_split]-1;
  1448.  
  1449. if (LoopStart[ped_patsam][ped_split]==LoopEnd[ped_patsam][ped_split])
  1450. {
  1451. LoopStart[ped_patsam][ped_split]=0;
  1452. LoopEnd[ped_patsam][ped_split]=SampleNumSamples[ped_patsam][ped_split]-1;
  1453. }
  1454.  
  1455. }
  1456.  
  1457. void Sp_Player2(void)
  1458. {
  1459.     if(Songplaying)
  1460.     {
  1461.         if (PosInTick==0)
  1462.         {
  1463.             Subicounter=0;
  1464.             
  1465.             Patbreak=127;
  1466.  
  1467.             for (int ct=0;ct<Songtracks;ct++)
  1468.             {
  1469.                 int efactor=ct*6+ped_line*96+pSequence[cPosition]*12288;
  1470.                 
  1471.                 pl_note=*(RawPatterns+efactor);
  1472.                 pl_sample=*(RawPatterns+efactor+1);    
  1473.                 pl_vol_row=*(RawPatterns+efactor+2);
  1474.                 pl_pan_row=*(RawPatterns+efactor+3);
  1475.                 pl_eff_row=*(RawPatterns+efactor+4);
  1476.                 pl_dat_row=*(RawPatterns+efactor+5);
  1477.             
  1478.                 if (pl_vol_row<=64)sp_Tvol[ct]=(float)pl_vol_row*0.015625f; // Setting volume.
  1479.                 if (pl_eff_row==3)sp_Tvol[ct]=(float)pl_dat_row*0.0039062f; // Setting volume.
  1480.                 if (pl_pan_row<=128)
  1481.                 {
  1482.                     TPan[ct]=(float)pl_pan_row*0.0078125f; 
  1483.                     ComputeStereo(ct);
  1484.                 }
  1485.  
  1486.                 live303(pl_eff_row,pl_dat_row);
  1487.  
  1488.                 if(pl_eff_row==49){track3031=ct;Fire303(pl_dat_row,0);}
  1489.                 if(pl_eff_row==50){track3032=ct;Fire303(pl_dat_row,1);}
  1490.             
  1491.                 /* MidiController commands */
  1492.                 if (pl_pan_row==144 && c_midiout!=-1 && pl_eff_row<128)
  1493.                 midiOutShortMsg(midiout_handle, (176+TRACKMIDICHANNEL[ct]) | (pl_eff_row << 8) | (pl_dat_row << 16));
  1494.         
  1495.                 if (pl_eff_row==128 && c_midiout!=-1 && pl_dat_row<128)
  1496.                 midiOutShortMsg(midiout_handle, (176+TRACKMIDICHANNEL[ct]) | (0 << 8) | (pl_dat_row << 16));
  1497.             
  1498.                 if (pl_eff_row==13 && pl_dat_row<64)Patbreak=pl_dat_row;
  1499.                     
  1500.                 if (pl_note<120)
  1501.                 {
  1502.             
  1503.                 int toffset=0;
  1504.                 glide=0;
  1505.                 if (pl_eff_row==9)toffset=pl_dat_row;
  1506.                 else if (pl_eff_row==5)glide=1;
  1507.                 
  1508.                 if (pl_vol_row<=64 || pl_eff_row==3)
  1509.                 Sp_Playwave(ct, (float)pl_note, pl_sample,sp_Tvol[ct],toffset,glide);
  1510.                 else
  1511.                 Sp_Playwave(ct, (float)pl_note, pl_sample,CustomVol[pl_sample],toffset,glide);
  1512.                 }
  1513.                 
  1514.                 if(pl_note==120)
  1515.                 {
  1516.                     if (sp_Stage[ct]==1)
  1517.                     sp_Stage[ct]=2;
  1518.                     noteoff303(ct);
  1519.                 }
  1520.  
  1521.             }// For loop
  1522.             Go303();    // Let's shake the 303s!
  1523.             }// Pos in tick == 0
  1524.  
  1525.             if (!SubCounter)DoEffects();
  1526.         
  1527.             SubCounter++;
  1528.             
  1529.             if (SubCounter>SamplesPerSub-1){SubCounter=0;Subicounter++;}
  1530.             
  1531.             PosInTick++;
  1532.             if (PosInTick>SamplesPerTick+shufflestep)
  1533.             {
  1534.                 shuffleswitch=-shuffleswitch;
  1535.                 
  1536.                 if (shuffleswitch==1)
  1537.                 shufflestep=-((SamplesPerTick*shuffle)/200);
  1538.                 else
  1539.                 shufflestep=(SamplesPerTick*shuffle)/200;
  1540.  
  1541.                 SubCounter=0;
  1542.                 PosInTick=0;
  1543.  
  1544.                 if (Patbreak>63)
  1545.                 {ped_line++;}
  1546.                 else{
  1547.                 ped_line=Patbreak;
  1548.                 cPosition++;
  1549.                 if (cPosition>=sLength)cPosition=0;
  1550.                 }
  1551.  
  1552.                 if (ped_line==patternLines[pSequence[cPosition]])
  1553.                 {
  1554.                     ped_line=0;
  1555.  
  1556.                     if (!plx)cPosition++;
  1557.                     if (cPosition>=sLength)cPosition=0;
  1558.                 }
  1559.             }
  1560.         }
  1561.             
  1562.     left_float=0;
  1563.     right_float=0;
  1564.     delay_left_final=1.0f;
  1565.     delay_right_final=1.0f;
  1566.  
  1567.     for (char c=0;c<Songtracks;c++)
  1568.     {
  1569.     grown=false;
  1570.     currsygnal=0;
  1571.     currsygnal2=0;
  1572.     bool gotsome=false;
  1573.     
  1574.     if (sp_Stage[c]==2)
  1575.         {
  1576.             sp_Tvol[c]=0.0f;    
  1577.             if (sp_Cvol[c]<0.01)sp_Stage[c]=0;
  1578.         }
  1579.     
  1580.     if (sp_Stage[c]!=0)
  1581.     {    
  1582.         gotsome=true;
  1583.         if (sp_Cvol[c]>sp_Tvol[c])
  1584.         sp_Cvol[c]-=0.005f;
  1585.         else
  1586.         sp_Cvol[c]+=0.005f;
  1587.         
  1588.         // Interpolation algorithm        
  1589.  
  1590.         Currentpointer=sp_Position[c].half.first;
  1591.         res_dec=sp_Position[c].half.last;
  1592.         currsygnal=Resampler.Work(
  1593.             *(Player_WL[c]+Currentpointer-1),
  1594.             *(Player_WL[c]+Currentpointer),
  1595.             *(Player_WL[c]+Currentpointer+1),
  1596.             *(Player_WL[c]+Currentpointer+2),res_dec,Currentpointer,Rns[c])*sp_Cvol[c]*Player_SV[c];
  1597.     
  1598.         if (Player_SC[c]==2)
  1599.         {
  1600.         grown=true;
  1601.         currsygnal2=Resampler.Work(
  1602.             *(Player_WR[c]+Currentpointer-1),
  1603.             *(Player_WR[c]+Currentpointer),
  1604.             *(Player_WR[c]+Currentpointer+1),
  1605.             *(Player_WR[c]+Currentpointer+2),res_dec,Currentpointer,Rns[c])*sp_Cvol[c]*Player_SV[c];
  1606.         }
  1607.         
  1608.  
  1609.         // End of Interpolation algo
  1610.  
  1611.         sp_Position[c].absolu+=Vstep1[c];
  1612.         if (Player_LT[c]==1 && sp_Position[c].half.first>=Player_LE[c])sp_Position[c].half.first-=Player_LL[c];
  1613.         if (Player_LT[c]==0 && sp_Position[c].half.first>=Player_NS[c])sp_Stage[c]=0;
  1614.         }//sp!!0
  1615.  
  1616.         if(track3031==c)
  1617.         {
  1618.             gotsome=true;
  1619.             currsygnal+=tb303engine[0].tbGetSample();
  1620.         }
  1621.  
  1622.         if(track3032==c)
  1623.         {
  1624.             currsygnal+=tb303engine[1].tbGetSample();
  1625.             gotsome=true;
  1626.         }
  1627.  
  1628.         if(gotsome)
  1629.         {
  1630.         if (FType[c]!=4) /* Track filter actived */
  1631.         {
  1632.         float const dfi = TCut[c]-CCut[c];
  1633.         if (dfi<-1.0 || dfi>1.0)
  1634.             CCut[c]+=dfi*ICut[c];
  1635.     
  1636.         if (FType[c]<4){
  1637.         gco=f2i(ApplyLfo(CCut[c]-ramper[c],c));
  1638.         
  1639.         ramper[c]+=Player_FD[c]*(float)gco*0.015625f;
  1640.         
  1641.         coef[0]=coeftab[0][gco][FRez[c]][FType[c]];
  1642.         coef[1]=coeftab[1][gco][FRez[c]][FType[c]];
  1643.         coef[2]=coeftab[2][gco][FRez[c]][FType[c]];
  1644.         coef[3]=coeftab[3][gco][FRez[c]][FType[c]];
  1645.         coef[4]=coeftab[4][gco][FRez[c]][FType[c]];
  1646.         currsygnal=Filter(currsygnal,c);
  1647.         }
  1648.         else
  1649.         {
  1650.         float const realcut=ApplyLfo(CCut[c]-ramper[c],c);
  1651.  
  1652.         ramper[c]+=Player_FD[c]*realcut*0.015625f;
  1653.  
  1654.         switch(FType[c])
  1655.         {
  1656.         case 5:
  1657.         currsygnal=filter2p(c,currsygnal,realcut,(float)FRez[c]);
  1658.         break;
  1659.         
  1660.         case 6:
  1661.         currsygnal=filter2p(c,currsygnal,realcut,(float)FRez[c]);
  1662.         currsygnal=filter2p24d(c,currsygnal,realcut,(float)FRez[c]);
  1663.         break;
  1664.         
  1665.         case 7:
  1666.         currsygnal=filter2p(c,currsygnal,realcut,(float)FRez[c]);
  1667.         currsygnal2=filter2p24d(c,currsygnal2,realcut,(float)FRez[c]);
  1668.         break;
  1669.  
  1670.         case 8:
  1671.         currsygnal=filterRingMod(c,currsygnal,realcut,(float)FRez[c]);
  1672.         break;
  1673.  
  1674.         case 9:
  1675.         currsygnal=filterRingMod(c,currsygnal,realcut,(float)FRez[c]);
  1676.         currsygnal2=filterRingModStereo(c,currsygnal2);
  1677.         break;
  1678.  
  1679.         case 10:
  1680.         currsygnal=filterWater(c,currsygnal,realcut,(float)FRez[c]);
  1681.         break;
  1682.         
  1683.         case 11:
  1684.         currsygnal=filterWater(c,currsygnal,realcut,(float)FRez[c]);
  1685.         currsygnal2=filterWaterStereo(c,currsygnal2,realcut,(float)FRez[c]);
  1686.         break;
  1687.  
  1688.         case 12:
  1689.         currsygnal=filterBellShaped(c,currsygnal,realcut,(float)FRez[c],-15);
  1690.         break;
  1691.  
  1692.         case 13:
  1693.         currsygnal=filterBellShaped(c,currsygnal,realcut,(float)FRez[c],-6);
  1694.         break;
  1695.  
  1696.         case 14:
  1697.         currsygnal=filterBellShaped(c,currsygnal,realcut,(float)FRez[c],6);
  1698.         break;
  1699.         
  1700.         case 15:
  1701.         currsygnal=filterBellShaped(c,currsygnal,realcut,(float)FRez[c],15);
  1702.         break;
  1703.         
  1704.         case 16:
  1705.         currsygnal=filterDelta(c,currsygnal,realcut,(float)FRez[c]);
  1706.         break;
  1707.  
  1708.         case 17:
  1709.         currsygnal=int_filter2p(c,currsygnal,realcut,(float)FRez[c],0.25f);
  1710.         break;
  1711.         
  1712.         case 18:
  1713.         currsygnal=int_filter2p(c,currsygnal,realcut,(float)FRez[c],0.56f);
  1714.         break;
  1715.         
  1716.         case 19:
  1717.         currsygnal=int_filter2p(c,currsygnal,realcut,(float)FRez[c],0.78f);
  1718.         break;
  1719.  
  1720.         case 20:
  1721.         currsygnal=int_filter2p(c,currsygnal,realcut,(float)FRez[c],0.96f);
  1722.         break;
  1723.  
  1724.         case 21:
  1725.         currsygnal=filterhp(c,currsygnal,realcut,(float)FRez[c]);
  1726.         break;
  1727.  
  1728.         case 22:
  1729.         currsygnal=filterhp(c,currsygnal,realcut,(float)FRez[c]);
  1730.         currsygnal2=filterhp2(c,currsygnal2,realcut,(float)FRez[c]);
  1731.         break;
  1732.  
  1733.         case 23:
  1734.         currsygnal=filterhp(c,currsygnal,realcut,(float)FRez[c]);
  1735.         currsygnal=filterhp2(c,currsygnal,realcut,(float)FRez[c]);
  1736.         break;
  1737.         
  1738.         }//SWITCHCASE [FILTERS]
  1739.     }        
  1740.     }    /* Filter end */
  1741.     
  1742.     if (!grown)currsygnal2=currsygnal;
  1743.  
  1744.     if (Disclap[c]) /* Distortion */
  1745.     {
  1746.     if (currsygnal>DThreshold[c])
  1747.     currsygnal=DClamp[c];
  1748.     else if(currsygnal<-DThreshold[c])
  1749.     currsygnal=-DClamp[c];
  1750.  
  1751.     if (currsygnal2>DThreshold[c])
  1752.     currsygnal2=DClamp[c];
  1753.     else if(currsygnal2<-DThreshold[c])
  1754.     currsygnal2=-DClamp[c];
  1755.     }
  1756.  
  1757.     currsygnal*=LVol[c];
  1758.     currsygnal2*=RVol[c];
  1759.  
  1760.     if(!TRACKSTATE[c])// Is the track mute or unmute ???
  1761.     {
  1762.  
  1763.     // Dry Send
  1764.  
  1765.     left_float+=currsygnal;
  1766.     right_float+=currsygnal2;
  1767.     
  1768.     // Sending to delay...
  1769.     
  1770.     float const DS=DSend[c];
  1771.  
  1772.     if (DS>0.008f)
  1773.     {
  1774.     delay_left_final+=currsygnal*DS;
  1775.     delay_right_final+=currsygnal2*DS;
  1776.     }
  1777.  
  1778.     // Sending to chorus
  1779.  
  1780.     float const DC=CCoef[c];
  1781.  
  1782.     if (DC>0.008f)
  1783.     {
  1784.     left_chorus+=currsygnal*DC;
  1785.     right_chorus+=currsygnal2*DC;
  1786.     }
  1787.     
  1788.     } //TRACKSTATE CLOSE
  1789.     } // GOTSOME
  1790.     }// Fortracker
  1791.  
  1792. }
  1793.  
  1794. void Sp_Player3(void) /* Lowest Quality Player , Standard Mod Properties.*/
  1795. {
  1796.     if(Songplaying)
  1797.     {
  1798.         if (PosInTick==0)
  1799.         {
  1800.             Subicounter=0;
  1801.             
  1802.             Patbreak=127;
  1803.  
  1804.             for (int ct=0;ct<Songtracks;ct++)
  1805.             {
  1806.                 int efactor=ct*6+ped_line*96+pSequence[cPosition]*12288;
  1807.                 
  1808.                 pl_note=*(RawPatterns+efactor);
  1809.                 pl_sample=*(RawPatterns+efactor+1);    
  1810.                 pl_vol_row=*(RawPatterns+efactor+2);
  1811.                 pl_pan_row=*(RawPatterns+efactor+3);
  1812.                 pl_eff_row=*(RawPatterns+efactor+4);
  1813.                 pl_dat_row=*(RawPatterns+efactor+5);
  1814.             
  1815.                 if (pl_vol_row<=64)sp_Tvol[ct]=(float)pl_vol_row*0.015625f; // Setting volume.
  1816.                 if (pl_eff_row==3)sp_Tvol[ct]=(float)pl_dat_row*0.0039062f; // Setting volume.
  1817.                 if (pl_pan_row<=128)
  1818.                 {
  1819.                     TPan[ct]=(float)pl_pan_row*0.0078125f; 
  1820.                     ComputeStereo(ct);
  1821.                 }
  1822.  
  1823.                 live303(pl_eff_row,pl_dat_row);
  1824.                 if(pl_eff_row==49){track3031=ct;Fire303(pl_dat_row,0);}
  1825.                 if(pl_eff_row==50){track3032=ct;Fire303(pl_dat_row,1);}
  1826.             
  1827.                 /* MidiController commands */
  1828.                 if (pl_pan_row==144 && c_midiout!=-1 && pl_eff_row<128)
  1829.                 midiOutShortMsg(midiout_handle, (176+TRACKMIDICHANNEL[ct]) | (pl_eff_row << 8) | (pl_dat_row << 16));
  1830.                 
  1831.                 if (pl_eff_row==128 && c_midiout!=-1 && pl_dat_row<128)
  1832.                 midiOutShortMsg(midiout_handle, (176+TRACKMIDICHANNEL[ct]) | (0 << 8) | (pl_dat_row << 16));
  1833.             
  1834.                 if (pl_eff_row==13 && pl_dat_row<64)Patbreak=pl_dat_row;
  1835.                         
  1836.                 if (pl_note<120)
  1837.                 {
  1838.             
  1839.                 int toffset=0;
  1840.                 glide=0;
  1841.                 if (pl_eff_row==9)toffset=pl_dat_row;
  1842.                 else if (pl_eff_row==5)glide=1;
  1843.                 
  1844.                 if (pl_vol_row<=64 || pl_eff_row==3)
  1845.                 Sp_Playwave(ct, (float)pl_note, pl_sample,sp_Tvol[ct],toffset,glide);
  1846.                 else
  1847.                 Sp_Playwave(ct, (float)pl_note, pl_sample,CustomVol[pl_sample],toffset,glide);
  1848.                 }
  1849.                 
  1850.                 if(pl_note==120)
  1851.                 {
  1852.                     if (sp_Stage[ct]==1)
  1853.                     sp_Stage[ct]=2;
  1854.                     noteoff303(ct);
  1855.                 }
  1856.  
  1857.             }// For loop
  1858.             Go303();
  1859.             }// Pos in tick == 0
  1860.  
  1861.             if (!SubCounter)DoEffects();
  1862.         
  1863.             SubCounter++;
  1864.             
  1865.             if (SubCounter>SamplesPerSub-1){SubCounter=0;Subicounter++;}
  1866.             
  1867.             PosInTick++;
  1868.             if (PosInTick>SamplesPerTick+shufflestep)
  1869.             {
  1870.                 shuffleswitch=-shuffleswitch;
  1871.                 
  1872.                 if (shuffleswitch==1)
  1873.                 shufflestep=-((SamplesPerTick*shuffle)/200);
  1874.                 else
  1875.                 shufflestep=(SamplesPerTick*shuffle)/200;
  1876.  
  1877.                 SubCounter=0;
  1878.                 PosInTick=0;
  1879.  
  1880.                 if (Patbreak>63)
  1881.                 {ped_line++;}
  1882.                 else{
  1883.                 ped_line=Patbreak;
  1884.                 cPosition++;
  1885.                 if (cPosition>=sLength)cPosition=0;
  1886.                 }
  1887.  
  1888.                 if (ped_line==patternLines[pSequence[cPosition]])
  1889.                 {
  1890.                     ped_line=0;
  1891.  
  1892.                     if (!plx)cPosition++;
  1893.                     if (cPosition>=sLength)cPosition=0;
  1894.                 }
  1895.             }
  1896.         }
  1897.             
  1898.     left_float=0;
  1899.     right_float=0;
  1900.  
  1901.     for (char c=0;c<Songtracks;c++)
  1902.     {
  1903.     bool gotsome=false;
  1904.     grown=false;
  1905.     currsygnal=0;
  1906.     currsygnal2=0;
  1907.     
  1908.     if (sp_Stage[c]==2)
  1909.         {
  1910.         // Note Stop
  1911.             sp_Tvol[c]=0.0f;
  1912.             
  1913.             if (sp_Cvol[c]<0.01)sp_Stage[c]=0;
  1914.         }
  1915.     
  1916.     if (sp_Stage[c]!=0)
  1917.     {    
  1918.         gotsome=true;
  1919.  
  1920.         if (sp_Cvol[c]>sp_Tvol[c])
  1921.         sp_Cvol[c]-=0.005f;
  1922.         else
  1923.         sp_Cvol[c]+=0.005f;
  1924.  
  1925.         // Interpolation algorithm
  1926.         
  1927.         Currentpointer=sp_Position[c].half.first;
  1928.         res_dec=sp_Position[c].half.last;
  1929.         
  1930.         currsygnal=Resampler.Work(
  1931.             *(Player_WL[c]+Currentpointer-1),
  1932.             *(Player_WL[c]+Currentpointer),
  1933.             *(Player_WL[c]+Currentpointer+1),
  1934.             *(Player_WL[c]+Currentpointer+2),res_dec,Currentpointer,Rns[c])*sp_Cvol[c]*Player_SV[c];
  1935.     
  1936.         if (Player_SC[c]==2)
  1937.         {
  1938.         grown=true;
  1939.         currsygnal2=Resampler.Work(
  1940.             *(Player_WR[c]+Currentpointer-1),
  1941.             *(Player_WR[c]+Currentpointer),
  1942.             *(Player_WR[c]+Currentpointer+1),
  1943.             *(Player_WR[c]+Currentpointer+2),res_dec,Currentpointer,Rns[c])*sp_Cvol[c]*Player_SV[c];
  1944.         }
  1945.         
  1946.         // End of Interpolation algo
  1947.  
  1948.         sp_Position[c].absolu+=Vstep1[c];
  1949.  
  1950.         if (Player_LT[c]==1 && sp_Position[c].half.first>=Player_LE[c])sp_Position[c].half.first-=Player_LL[c];
  1951.         if (Player_LT[c]==0 && sp_Position[c].half.first>=Player_NS[c])sp_Stage[c]=0;
  1952.     
  1953.     } // SP
  1954.     
  1955.     if(track3031==c)
  1956.     {
  1957.         gotsome=true;
  1958.         currsygnal+=tb303engine[0].tbGetSample();
  1959.     }
  1960.  
  1961.     if(track3032==c)
  1962.     {
  1963.         gotsome=true;
  1964.         currsygnal+=tb303engine[1].tbGetSample();
  1965.     }
  1966.  
  1967.     if(gotsome)
  1968.     {
  1969.     if (!grown)currsygnal2=currsygnal;
  1970.  
  1971.     currsygnal*=LVol[c];
  1972.     currsygnal2*=RVol[c];
  1973.     
  1974.     if(!TRACKSTATE[c])// Is the track mute or unmute ???
  1975.     {
  1976.     left_float+=currsygnal;
  1977.     right_float+=currsygnal2;
  1978.     }// TRACKSTATE
  1979.     }// GOTSOME
  1980.     
  1981.     }// Fortracker
  1982.  
  1983. }
  1984.  
  1985.  
  1986. void Go303(void)
  1987. {
  1988. if (tb303engine[0].tbPattern!=255)
  1989. {
  1990.     tb303engine[0].tbNoteOn(tb303[0].tone[tb303engine[0].tbPattern][tb303engine[0].tbLine],&tb303[0]);
  1991.  
  1992.     tb303engine[0].tbLine++;
  1993.     
  1994.     if(tb303engine[0].tbLine==tb303[0].patternlength[tb303engine[0].tbPattern])tb303engine[0].tbLine=0;
  1995. }
  1996.  
  1997. if (tb303engine[1].tbPattern!=255)
  1998. {
  1999.     tb303engine[1].tbNoteOn(tb303[1].tone[tb303engine[1].tbPattern][tb303engine[1].tbLine],&tb303[1]);
  2000.  
  2001.     tb303engine[1].tbLine++;
  2002.     
  2003.     if(tb303engine[1].tbLine==tb303[1].patternlength[tb303engine[1].tbPattern])tb303engine[1].tbLine=0;    
  2004. }
  2005. }
  2006.  
  2007.  
  2008. void Fire303(unsigned char number,char unit)
  2009. {
  2010.     tb303engine[unit].tbLine=0;
  2011.     
  2012.     switch(number)
  2013.     {
  2014.     case 0x00:tb303engine[unit].tbPattern=tb303[unit].selectedpattern;break;
  2015.     case 0xA1:tb303engine[unit].tbPattern=0;break;
  2016.     case 0xA2:tb303engine[unit].tbPattern=1;break;
  2017.     case 0xA3:tb303engine[unit].tbPattern=2;break;
  2018.     case 0xA4:tb303engine[unit].tbPattern=3;break;
  2019.     case 0xA5:tb303engine[unit].tbPattern=4;break;
  2020.     case 0xA6:tb303engine[unit].tbPattern=5;break;
  2021.     case 0xA7:tb303engine[unit].tbPattern=6;break;
  2022.     case 0xA8:tb303engine[unit].tbPattern=7;break;
  2023.     case 0xB1:tb303engine[unit].tbPattern=8;break;
  2024.     case 0xB2:tb303engine[unit].tbPattern=9;break;
  2025.     case 0xB3:tb303engine[unit].tbPattern=10;break;
  2026.     case 0xB4:tb303engine[unit].tbPattern=11;break;
  2027.     case 0xB5:tb303engine[unit].tbPattern=12;break;
  2028.     case 0xB6:tb303engine[unit].tbPattern=13;break;
  2029.     case 0xB7:tb303engine[unit].tbPattern=14;break;
  2030.     case 0xB8:tb303engine[unit].tbPattern=15;break;
  2031.     case 0xC1:tb303engine[unit].tbPattern=16;break;
  2032.     case 0xC2:tb303engine[unit].tbPattern=17;break;
  2033.     case 0xC3:tb303engine[unit].tbPattern=18;break;
  2034.     case 0xC4:tb303engine[unit].tbPattern=19;break;
  2035.     case 0xC5:tb303engine[unit].tbPattern=20;break;
  2036.     case 0xC6:tb303engine[unit].tbPattern=21;break;
  2037.     case 0xC7:tb303engine[unit].tbPattern=22;break;
  2038.     case 0xC8:tb303engine[unit].tbPattern=23;break;
  2039.     case 0xD1:tb303engine[unit].tbPattern=24;break;
  2040.     case 0xD2:tb303engine[unit].tbPattern=25;break;
  2041.     case 0xD3:tb303engine[unit].tbPattern=26;break;
  2042.     case 0xD4:tb303engine[unit].tbPattern=27;break;
  2043.     case 0xD5:tb303engine[unit].tbPattern=28;break;
  2044.     case 0xD6:tb303engine[unit].tbPattern=29;break;
  2045.     case 0xD7:tb303engine[unit].tbPattern=30;break;
  2046.     case 0xD8:tb303engine[unit].tbPattern=31;break;
  2047.  
  2048.     default: /* No Fire */
  2049.     tb303engine[unit].tbLine=255;
  2050.     break;
  2051.  
  2052.     }
  2053. }
  2054.  
  2055. void noteoff303(char strack)
  2056. {
  2057. if(strack==track3031)
  2058. {
  2059. tb303engine[0].tbLine=255;
  2060. tb303engine[0].tbPattern=255;
  2061. track3031=255;
  2062. tb303engine[0].tbBuf0=0.0f;
  2063. tb303engine[0].tbBuf1=0.0f;
  2064. }
  2065.  
  2066. if(strack==track3032)
  2067. {
  2068. tb303engine[1].tbLine=255;
  2069. tb303engine[1].tbPattern=255;
  2070. track3032=255;
  2071. tb303engine[1].tbBuf0=0.0f;
  2072. tb303engine[1].tbBuf1=0.0f;
  2073. }
  2074. }
  2075.  
  2076. void live303(int pltr_eff_row,int pltr_dat_row)
  2077. {
  2078.     // 303 Pattern commands Parameter changers...
  2079.  
  2080.     switch(pltr_eff_row)
  2081.     {
  2082.     case 51:tb303[0].cutoff=pltr_dat_row/2;break;
  2083.     case 52:tb303[1].cutoff=pltr_dat_row/2;break;
  2084.     case 53:tb303[0].resonance=pltr_dat_row/2;break;
  2085.     case 54:tb303[1].resonance=pltr_dat_row/2;break;
  2086.     case 55:tb303[0].envmod=pltr_dat_row/2;break;
  2087.     case 56:tb303[1].envmod=pltr_dat_row/2;break;
  2088.     case 57:tb303[0].decay=pltr_dat_row/2;break;
  2089.     case 58:tb303[1].decay=pltr_dat_row/2;break;
  2090.     case 59:tb303[0].tune=pltr_dat_row/2;break;
  2091.     case 60:tb303[1].tune=pltr_dat_row/2;break;
  2092.     }
  2093. }
  2094.  
  2095. void Letter(int x,int y,char ltr,int ys,int y2)
  2096. {
  2097.     switch(ltr)
  2098.     {
  2099.     case 0: S->copy(PFONT,x,y,72 ,ys,79,y2);break;
  2100.     case 1: S->copy(PFONT,x,y,80 ,ys,87,y2);break;
  2101.     case 2: S->copy(PFONT,x,y,88 ,ys,95,y2);break;
  2102.     case 3: S->copy(PFONT,x,y,96 ,ys,103,y2);break;
  2103.     case 4: S->copy(PFONT,x,y,104,ys,111,y2);break;
  2104.     case 5: S->copy(PFONT,x,y,112,ys,119,y2);break;
  2105.     case 6: S->copy(PFONT,x,y,120,ys,127,y2);break;
  2106.     case 7: S->copy(PFONT,x,y,128,ys,135,y2);break;
  2107.     case 8: S->copy(PFONT,x,y,136,ys,143,y2);break;
  2108.     case 9: S->copy(PFONT,x,y,144,ys,151,y2);break;
  2109.     case 10: S->copy(PFONT,x,y,0,ys,7,y2);break; // A
  2110.     case 11: S->copy(PFONT,x,y,8,ys,15,y2);break;// B
  2111.     case 12: S->copy(PFONT,x,y,16,ys,23,y2);break;// C
  2112.     case 13: S->copy(PFONT,x,y,24,ys,31,y2);break;// D
  2113.     case 14: S->copy(PFONT,x,y,32,ys,39,y2);break;// E
  2114.     case 15: S->copy(PFONT,x,y,40,ys,47,y2);break;// F
  2115.     case 16: S->copy(PFONT,x,y,48,ys,55,y2);break;// G
  2116.     case 17: S->copy(PFONT,x,y,64,ys,71,y2);break; // #
  2117.     case 18: S->copy(PFONT,x,y,176,ys,183,y2);break; // -
  2118.     case 19: S->copy(PFONT,x,y,152,ys,175,y2);break; // Off
  2119.     case 20: S->copy(PFONT,x,y,56,ys,63,y2);break; // Blank
  2120.     case 21: S->copy(PFONT,x,y,184,ys,191,y2);break; // .
  2121.     case 22: S->copy(PFONT,x,y,0,104,103,111);break; // .
  2122.     case 23: S->copy(PFONT,x,y,39,113,57,119);break; // ON!
  2123.     case 24: S->copy(PFONT,x,y,58,113,76,119);break; // OFF
  2124.     case 25: S->copy(PFONT,x,y,0,113,18,119);break; // MUTE!
  2125.     case 26: S->copy(PFONT,x,y,19,113,37,119);break; // UNMUTE
  2126.     case 27: S->copy(PFONT,x,y,78,113,109,119);break; // EDIT ON!
  2127.     case 28: S->copy(PFONT,x,y,111,113,142,119);break; // EDIT OFF!
  2128.  
  2129.     }
  2130. }
  2131.  
  2132. void blitnote(int x,int y,int note, int y1,int y2)
  2133. {
  2134. switch(note)
  2135. {
  2136.  
  2137. case 120:Letter(x,y,19,y1,y2);break;
  2138. case 121:Letter(x,y,18,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,18,y1,y2);break;
  2139.  
  2140. case 0: Letter(x,y,12,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2141. case 1: Letter(x,y,12,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2142. case 2: Letter(x,y,13,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2143. case 3: Letter(x,y,13,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2144. case 4: Letter(x,y,14,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2145. case 5: Letter(x,y,15,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2146. case 6: Letter(x,y,15,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2147. case 7: Letter(x,y,16,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2148. case 8: Letter(x,y,16,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2149. case 9: Letter(x,y,10,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2150. case 10:Letter(x,y,10,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2151. case 11:Letter(x,y,11,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,0,y1,y2);break;
  2152. case 12:Letter(x,y,12,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2153. case 13:Letter(x,y,12,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2154. case 14:Letter(x,y,13,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2155. case 15:Letter(x,y,13,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2156. case 16:Letter(x,y,14,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2157. case 17:Letter(x,y,15,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2158. case 18:Letter(x,y,15,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2159. case 19:Letter(x,y,16,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2160. case 20:Letter(x,y,16,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2161. case 21:Letter(x,y,10,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2162. case 22:Letter(x,y,10,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2163. case 23:Letter(x,y,11,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,1,y1,y2);break;
  2164. case 24:Letter(x,y,12,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2165. case 25:Letter(x,y,12,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2166. case 26:Letter(x,y,13,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2167. case 27:Letter(x,y,13,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2168. case 28:Letter(x,y,14,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2169. case 29:Letter(x,y,15,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2170. case 30:Letter(x,y,15,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2171. case 31:Letter(x,y,16,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2172. case 32:Letter(x,y,16,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2173. case 33:Letter(x,y,10,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2174. case 34:Letter(x,y,10,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2175. case 35:Letter(x,y,11,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,2,y1,y2);break;
  2176. case 36:Letter(x,y,12,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2177. case 37:Letter(x,y,12,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2178. case 38:Letter(x,y,13,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2179. case 39:Letter(x,y,13,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2180. case 40:Letter(x,y,14,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2181. case 41:Letter(x,y,15,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2182. case 42:Letter(x,y,15,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2183. case 43:Letter(x,y,16,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2184. case 44:Letter(x,y,16,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2185. case 45:Letter(x,y,10,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2186. case 46:Letter(x,y,10,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2187. case 47:Letter(x,y,11,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,3,y1,y2);break;
  2188. case 48:Letter(x,y,12,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2189. case 49:Letter(x,y,12,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2190. case 50:Letter(x,y,13,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2191. case 51:Letter(x,y,13,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2192. case 52:Letter(x,y,14,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2193. case 53:Letter(x,y,15,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2194. case 54:Letter(x,y,15,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2195. case 55:Letter(x,y,16,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2196. case 56:Letter(x,y,16,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2197. case 57:Letter(x,y,10,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2198. case 58:Letter(x,y,10,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2199. case 59:Letter(x,y,11,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,4,y1,y2);break;
  2200. case 60:Letter(x,y,12,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2201. case 61:Letter(x,y,12,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2202. case 62:Letter(x,y,13,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2203. case 63:Letter(x,y,13,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2204. case 64:Letter(x,y,14,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2205. case 65:Letter(x,y,15,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2206. case 66:Letter(x,y,15,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2207. case 67:Letter(x,y,16,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2208. case 68:Letter(x,y,16,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2209. case 69:Letter(x,y,10,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2210. case 70:Letter(x,y,10,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2211. case 71:Letter(x,y,11,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,5,y1,y2);break;
  2212. case 72:Letter(x,y,12,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2213. case 73:Letter(x,y,12,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2214. case 74:Letter(x,y,13,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2215. case 75:Letter(x,y,13,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2216. case 76:Letter(x,y,14,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2217. case 77:Letter(x,y,15,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2218. case 78:Letter(x,y,15,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2219. case 79:Letter(x,y,16,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2220. case 80:Letter(x,y,16,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2221. case 81:Letter(x,y,10,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2222. case 82:Letter(x,y,10,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2223. case 83:Letter(x,y,11,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,6,y1,y2);break;
  2224. case 84:Letter(x,y,12,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2225. case 85:Letter(x,y,12,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2226. case 86:Letter(x,y,13,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2227. case 87:Letter(x,y,13,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2228. case 88:Letter(x,y,14,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2229. case 89:Letter(x,y,15,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2230. case 90:Letter(x,y,15,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2231. case 91:Letter(x,y,16,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2232. case 92:Letter(x,y,16,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2233. case 93:Letter(x,y,10,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2234. case 94:Letter(x,y,10,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2235. case 95:Letter(x,y,11,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,7,y1,y2);break;
  2236. case 96:Letter(x,y,12,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2237. case 97:Letter(x,y,12,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2238. case 98:Letter(x,y,13,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2239. case 99:Letter(x,y,13,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2240. case 100:Letter(x,y,14,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2241. case 101:Letter(x,y,15,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2242. case 102:Letter(x,y,15,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2243. case 103:Letter(x,y,16,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2244. case 104:Letter(x,y,16,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2245. case 105:Letter(x,y,10,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2246. case 106:Letter(x,y,10,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2247. case 107:Letter(x,y,11,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,8,y1,y2);break;
  2248. case 108:Letter(x,y,12,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2249. case 109:Letter(x,y,12,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2250. case 110:Letter(x,y,13,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2251. case 111:Letter(x,y,13,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2252. case 112:Letter(x,y,14,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2253. case 113:Letter(x,y,15,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2254. case 114:Letter(x,y,15,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2255. case 115:Letter(x,y,16,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2256. case 116:Letter(x,y,16,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2257. case 117:Letter(x,y,10,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2258. case 118:Letter(x,y,10,y1,y2);Letter(x+8,y,17,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2259. case 119:Letter(x,y,11,y1,y2);Letter(x+8,y,18,y1,y2);Letter(x+16,y,9,y1,y2);break;
  2260. }
  2261. }
  2262.  
  2263. void RandSynth()
  2264. {
  2265. PARASynth[ped_patsam].osc1_waveform=rand()/8192;
  2266. PARASynth[ped_patsam].osc2_waveform=rand()/8192;
  2267. PARASynth[ped_patsam].vcf_type=rand()/10923;
  2268. PARASynth[ped_patsam].osc1_pw=rand()/64;
  2269. PARASynth[ped_patsam].osc2_pw=rand()/64;
  2270. PARASynth[ped_patsam].osc2_finetune=rand()/256;
  2271. PARASynth[ped_patsam].vcf_cutoff=rand()/256;
  2272. PARASynth[ped_patsam].vcf_resonance=rand()/256;
  2273. PARASynth[ped_patsam].env1_attack=rand();
  2274. PARASynth[ped_patsam].env1_decay=rand();
  2275. PARASynth[ped_patsam].env1_sustain=rand()/256;
  2276. PARASynth[ped_patsam].env1_release=rand();
  2277. PARASynth[ped_patsam].env2_attack=rand();
  2278. PARASynth[ped_patsam].env2_decay=rand();
  2279. PARASynth[ped_patsam].env2_sustain=rand()/256;
  2280. PARASynth[ped_patsam].env2_release=rand();
  2281. PARASynth[ped_patsam].lfo1_period=rand()/16;
  2282. PARASynth[ped_patsam].lfo2_period=rand()/16;
  2283. PARASynth[ped_patsam].lfo1_osc1_pw=rand()/256;
  2284. PARASynth[ped_patsam].lfo1_osc2_pw=rand()/256;
  2285. PARASynth[ped_patsam].lfo1_osc1_volume=rand()/256;
  2286. PARASynth[ped_patsam].lfo1_osc2_volume=rand()/256;
  2287. PARASynth[ped_patsam].lfo1_vcf_cutoff=rand()/256;
  2288. PARASynth[ped_patsam].lfo1_vcf_resonance=rand()/256;
  2289. PARASynth[ped_patsam].lfo2_osc1_pw=rand()/256;
  2290. PARASynth[ped_patsam].lfo2_osc2_pw=rand()/256;
  2291. PARASynth[ped_patsam].lfo2_osc1_volume=rand()/256;
  2292. PARASynth[ped_patsam].lfo2_osc2_volume=rand()/256;
  2293. PARASynth[ped_patsam].lfo2_vcf_cutoff=rand()/256;
  2294. PARASynth[ped_patsam].lfo2_vcf_resonance=rand()/256;
  2295. PARASynth[ped_patsam].env1_osc1_pw=rand()/256;
  2296. PARASynth[ped_patsam].env1_osc2_pw=rand()/256;
  2297. PARASynth[ped_patsam].env1_osc1_volume=rand()/256;
  2298. PARASynth[ped_patsam].env1_osc2_volume=rand()/256;
  2299. PARASynth[ped_patsam].env1_vcf_cutoff=rand()/256;
  2300. PARASynth[ped_patsam].env1_vcf_resonance=rand()/256;
  2301. PARASynth[ped_patsam].env2_osc1_pw=rand()/256;
  2302. PARASynth[ped_patsam].env2_osc2_pw=rand()/256;
  2303. PARASynth[ped_patsam].env2_osc1_volume=rand()/256;
  2304. PARASynth[ped_patsam].env2_osc2_volume=rand()/256;
  2305. PARASynth[ped_patsam].env2_vcf_cutoff=rand()/256;
  2306. PARASynth[ped_patsam].env2_vcf_resonance=rand()/256;
  2307. PARASynth[ped_patsam].osc3_volume=rand()/256;
  2308. PARASynth[ped_patsam].ptc_glide=rand()/256;
  2309. PARASynth[ped_patsam].glb_volume=100;
  2310.  
  2311.  
  2312. if(rand()>16384)
  2313. {
  2314. PARASynth[ped_patsam].osc2_detune=rand()/256;
  2315. PARASynth[ped_patsam].lfo1_osc1_pitch=rand()/256;
  2316. PARASynth[ped_patsam].lfo1_osc2_pitch=rand()/256;
  2317. PARASynth[ped_patsam].lfo2_osc1_pitch=rand()/256;
  2318. PARASynth[ped_patsam].lfo2_osc2_pitch=rand()/256;
  2319. PARASynth[ped_patsam].env1_osc1_pitch=rand()/256;
  2320. PARASynth[ped_patsam].env1_osc2_pitch=rand()/256;
  2321. PARASynth[ped_patsam].env2_osc1_pitch=rand()/256;
  2322. PARASynth[ped_patsam].env2_osc2_pitch=rand()/256;
  2323. }
  2324. else
  2325. {
  2326. PARASynth[ped_patsam].osc2_detune=64;
  2327. PARASynth[ped_patsam].lfo1_osc1_pitch=64+((rand()-16384)/10923);
  2328. PARASynth[ped_patsam].lfo1_osc2_pitch=64+((rand()-16384)/10923);
  2329. PARASynth[ped_patsam].lfo2_osc1_pitch=64+((rand()-16384)/10923);
  2330. PARASynth[ped_patsam].lfo2_osc2_pitch=64+((rand()-16384)/10923);
  2331. PARASynth[ped_patsam].env1_osc1_pitch=64+((rand()-16384)/10923);
  2332. PARASynth[ped_patsam].env1_osc2_pitch=64+((rand()-16384)/10923);
  2333. PARASynth[ped_patsam].env2_osc1_pitch=64+((rand()-16384)/10923);
  2334. PARASynth[ped_patsam].env2_osc2_pitch=64+((rand()-16384)/10923);
  2335. }
  2336.  
  2337. if (userscreen==6)Actualize_Midi_Ed(1);
  2338. }